二维饼图
代码如下:
#绘制2维饼图
x=read.delim("C:/Users/a/Desktop/sample.txt",header=FALSE) #读入文本数据
names(x)=c("word","count") #加表头
x=transform(x, pct=round(x$count/sum(x$count)*100)) #数据框增加百分比列
y=x[order(x[,2],decreasing=T),]#排序
z=head(y,n=10)#抽取前10行
percent <- paste(z$pct,"%",sep="") #add % to labels
lbls <- paste(z$word,percent,sep="\n") #换行
pie(z$pct,labels=lbls,col=rainbow(length(lbls)),main="Pie Chart of Word")