pieval<-c(2,4,6,8)
bisectors<-pie3D(pieval,explode=0.1,main="3D PIE OPINIONS")
pielabels<-
c("We hate
pies","We oppose
pies","We don't
care","We just love pies")
pie3D.labels(bisectors,labels=pielabels)
Run the code above in your browser using DataLab