1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#载入包
library("plotrix")
#数据
pieval <- c(28,152,56,136)
#对应的标签
pielabels <- c("unknown","small","middle","big")
percent <- round(pieval/sum(pieval)*100,1)
percent <- paste(percent,"%",sep="")
pielabels <- paste(pielabels,percent,sep="n")
#调整标签的位置
lp <- pie3D(pieval,radius=0.8,height=0.2,labels=pielabels,explode=0.1,main="3D pie DEMO")
lp[1] <- 0.05
lp[3] <- 3.2
#绘图
pie3D(pieval,radius=0.8,height=0.2,labels=pielabels,labelpos=lp,explode=0.1,main="3D pie DEMO")

#载入包 library("plotrix") #数据 pieval <- c(28,152,56,136) #对应的标签 pielabels <- c("unknown","small","middle","big") percent <- round(pieval/sum(pieval)*100,1) percent <- paste(percent,"%",sep="") pielabels <- paste(pielabels,percent,sep="n") #调整标签的位置 lp <- pie3D(pieval,radius=0.8,height=0.2,labels=pielabels,explode=0.1,main="3D pie DEMO") lp[1] <- 0.05 lp[3] <- 3.2 #绘图 pie3D(pieval,radius=0.8,height=0.2,labels=pielabels,labelpos=lp,explode=0.1,main="3D pie DEMO")