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