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