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"))

对数据value降序

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),"%)")

绘图方式1

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

绘图方式2

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")