library(ggpubr) ggpie(df, "value", #数据 label = "group",#标签 lab.pos = 'in',#标签位置 lab.font = c(5, 'white'),#标签大小及颜色 fill = "group", #填充 color = "grey",#间隔颜色 palette = rainbow(5))#填充颜色

library(plotrix) col<-rainbow(5) pie3D(df$value, #数据 labels = df$group, #标签 theta = pi/5, labelcex=1.2, #标签大小 main = "3D pie",#标题 explode = 0.1, #各扇形间隔 height = 0.08,#各扇形高度 radius = 1,#半径，0~1 col = rainbow(5))#颜色 legend("topright", df$group, cex = 0.8,fill = col)#图例

library(plotrix) col<-rainbow(5) fan.plot(df$value,#绘图数据 radius=1,#半径 col=col,#填充颜色 labels=df$group,#标签 label.radius=1.1,#标签距扇形的距离 align="left",#扇形对齐的位置 main="Fan plot")#标题 legend("right",df$group,cex=0.9,fill=col)#图例

参考：见各函数帮助文档