R可视化——饼图的绘制方法汇总

数据

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

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

image.png

使用Pie函数绘制饼图

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

image.png

添加图例：

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

image.png

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

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

image.png

ggoplot2包绘制饼图

     ggplot2包中没有专门的绘制饼图的函数，所以得先绘制条形图，再转换成极坐标形式以实现饼图的绘制：

library(ggplot2)
ggplot(df, aes(x="", y = value, fill = group))+#数据
  geom_bar(width = 1, stat = "identity",color="white")+#绘制柱状图
  coord_polar('y')+#变为极坐标
  theme_void()+#主题
  scale_fill_manual(values=rainbow(5))+#自定义颜色
  geom_text(aes(y = sum(value)-cumsum(value)+value/2,
                    label = scales::percent(value/sum(value))), size=4.5)#标签

image.png

ggstatsplot包绘制饼图

     基于ggstatsplot包中的ggpiestats()函数进行绘制，但是这个包使用的数据是不需要统计频数的，直接使用原始数据绘图即可：

#以数据集mtcars为例
df1<-mtcars

image.png

library(ggstatsplot)
ggpiestats(df1, 'vs', #数据
           direction = 1, #方向，通过1和-1调整
           title = "Pie",#标题
           factor.levels = df1$vs,#标签
           slice.label = 'percentage',#标签类型，percentage/counts/both
           perc.k = 2,#百分数小数位数
           results.subtitle = T) #标题是否显示统计结果

image.png

ggpubr包绘制饼图

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

image.png

pie3D()函数绘制3D饼图

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)#图例

image.png

fan.plot()函数绘制扇形

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)#图例

image.png

参考：见各函数帮助文档