R绘制饼图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

二维饼图

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

复制代码

3D饼图

沿用前面的数据，绘制R语言绘制3D饼图的代码如下：

1. #3D饼图
   
2. 
   
3. library("plotrix")lp=pie3D(z$pct,radius=0.8,height=0.1,labels=lbls,explode=0.1,main="3D pie DEMO")
   
4. 
   
5. #调整标签位置(效果不太好)
   
6. 
   
7. lp[1] <- 0.05
   
8. lp[3] <- 3.2
   
9. pie3D(z$pct,radius=0.8,height=0.1,labels=lbls,labelpos=lp,explode=0.1,main="3D pie DEMO")

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Decreasing transform Desktop percent Sample rainbow library percent labels 百分比

学习了。。。。。。