# NOT RUN {
pieval<-c(2,1,3,94)
plot(1:5,type="n",axes=FALSE,xlab="",ylab="")
box()
bisect.angles<-floating.pie(3,3,pieval)
pie.labels(3,3,bisect.angles,c("two","one","three","ninety\nfour"))
pie.labels(3,3,bisect.angles,radius=1.5,
c("First\nvalue","Second\nvalue","Third\nvalue","Fourth\nvalue"),
minangle=0.2,boxed=TRUE)
# }
Run the code above in your browser using DataCamp Workspace