r R：饼图

Posted 2021-05-24

piechart = function(B, col, labels, oname){
  percentlabels<- round(100*B/sum(B), 1)
  pielabels<- paste0(percentlabels, "%")
  if(!missing(oname)) png(oname, width = 960, height = 960, bg='transparent')#, units = "px", pointsize = 72)
  pie(B, init.angle=90, radius=0.5, col=col, labels=pielabels, cex=4, clockwise=T)
  legend("top", labels, cex=3.6, fill=col, box.col=NA, ncol=1)
  if(!missing(oname)) {
    print(paste0('create ', oname))
    dev.off()
  }
}