library("plotrix")

pieval <- c(28,152,56,136)

pielabels <- c("标签溢出情况如何处理","small","middle","big")
pie3D(pieval,radius=0.8,height=0.2,labels=pielabels,labelpos=lp,explode=0.1,main="3D pie DEMO")