1. 程式人生 > >R繪製3D餅圖

R繪製3D餅圖

二維餅圖

wKiom1VBqW3BORujAAEmOY6dl5g855.jpg

程式碼如下:

#繪製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餅圖

wKioL1VBq1PQEB-YAAF8H78wXHU107.jpg

沿用前面的資料,繪製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")