R语言 关于棘状图，以及饼图，三维饼图的画法

	R	语言关于棘状图，以及饼图，三维饼图的画法

使用vcd包中的spine()函数进行绘制
library(vcd)
attach(Arthritis)
counts<-table(Treatment,Improved)
spine(counts,main=“Spinogram Example”)
detach(Arthritis)

饼图的画法以及三维饼图的画法
##饼图的画法利用函数pie(x,label),其中x表示的是label 所占的比重

par(mfrow=c(2,2))
x<-c(10,12,4,16,8)
lbls<-c(“US”,“UK”,“Australia”,“Germany”,“France”)
pie(x,labels=lbls,main=“Sample Pie Chart”)

##为饼图添加比例数据
pct<-round(x/sum(x)*100)
lbls2<-paste(lbls,"",pct,"%",sep="")#表示标签的形式
pie(x,labels=lbls2,col=rainbow(length(lbls2)),main=“Pie Chart with Percentages”)
#三维饼图的设置
使用plotrix包中的pie3D()函数来创建
library(plotrix)
pie3D(x,labels=lbls,explode=0.1,main=“3D Pie Chart”)#explode表示不同区域分开的距离
mytable<-table(state.region)
lbls3<-paste(names(mytable),"\n",mytable,sep="")#将字符转换为向量
pie(mytable,labels=lbls3,main=“Pie Chart from Table\n
(with sample sizes)”)