棘状图可以由vcd包的spine（）绘制； library(vcd) attach(Arthritis) counts <- table(Treatment,Improved) spine(counts,main = “Spinogram”) detach(Arthritis) 图形： 堆砌条形图是条形图的一种，与棘状图相比两者外貌比较相似，但是前者是实际频数，后者可看为百