R绘制3D饼图
短信预约 -IT技能 免费直播动态提醒
二维饼图
代码如下：
#绘制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")3D饼图
沿用前面的数据，绘制R语言绘制3D饼图的代码如下：
#3D饼图
library("plotrix")lp=pie3D(z$pct,radius=0.8,height=0.1,labels=lbls,explode=0.1,main="3D pie DEMO")
#调整标签位置(效果不太好)
lp[1] <- 0.05
lp[3] <- 3.2
pie3D(z$pct,radius=0.8,height=0.1,labels=lbls,labelpos=lp,explode=0.1,main="3D pie DEMO")免责声明：
① 本站未注明“稿件来源”的信息均来自网络整理。其文字、图片和音视频稿件的所属权归原作者所有。本站收集整理出于非商业性的教育和科研之目的，并不意味着本站赞同其观点或证实其内容的真实性。仅作为临时的测试数据，供内部测试之用。本站并未授权任何人以任何方式主动获取本站任何信息。
② 本站未注明“稿件来源”的临时测试数据将在测试完成后最终做删除处理。有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341
