基本知识|R语言简单饼图的绘制

data<-data.frame(value=c(45.71,23.34,34.24,56,67.51,78.23),group=c("SOD","PPO","POD","LOX","LPS","CAT"))

data<-arrange(data,desc(value))

data$color<-rev(brewer.pal(nrow(data),"Blues"))

labels<-paste0(data$group,"\n(",round(data$value/sum(data$value)*100,2),"%)")

pie(data$value,labels=labs,init.angle=90,col=data$color,border="black")

pie(data$value,labels=paste0(data$group,"\n(",round(data$value/sum(data$value)*100,1),"%)"),init.angle=90,col=brewer.pal(nrow(data),"Oranges"),border="black")