R语言绘制商业饼图

par(mfrow=c(2,2))
slices<-c(10,12,4,16,8)
lbls<-c("美国","中国","俄罗斯","德国","英国")
pie(slices,labels=lbls,main="简单饼图")
pct<-round(slices/sum(slices)*100)
lbls2<-paste(lbls,"",pct,"%",sep="")
pie(slices,labels=lbls2,col=rainbow(length(lbls2)),main="带有百分比的饼图")
library(plotrix)
pie3D(slices,labels=lbls,explode=0.1,main="3D饼图")
mytable<-table(state.region)
lbls3<-paste(names(mytable),"\n",mytable,sep="")
pie(mytable,labels=lbls3,main="从一张表绘制饼图\n(带有采样尺寸)")

library(plotrix)
slices<-c(10,12,4,16,8)
lbls<-c("美国","英国","中国","德国","法国")
fan.plot(slices,labels=lbls,main="扇形图")

R语言实战 Robert I.Kabacoff著 王小宁，刘撷芯，黄俊文等译----中国工信出版社 人民邮电出版社