使用随机编写数据，包含两列，一列为group，一列为value:

rm(list=ls()) df<-data.frame( group=c('A', 'B', 'C', 'D', 'E'), value=c(55,75,20,60,100))

col<-rainbow(5) pie(df$value, #扇形数值大小 labels = df$group, #各扇形面积标签 radius = 0.9,#饼图半径 main = 'Pie',#标题 clockwise = FALSE, #饼图各个切片是否按顺时针做出分割 col = col)#自定义颜色

添加图例：

legend("topright", df$group, cex = 0.8,fill = col)#图例

也可以替换扇形中的填充形式，使用线条进行填充：

pie(df$value, #扇形数值大小 labels = df$group, #各扇形面积标签 radius = 0.9,#饼图半径 main = 'Pie',#标题 clockwise = FALSE, #饼图各个切片是否按顺时针做出分割 density = 20, # 设置阴影线密度 angle = 45,#设置阴影线角度 col = rainbow(5))#自定义颜色