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
参考:见各函数帮助文档
©著作权归作者所有,转载或内容合作请联系作者
平台声明:文章内容(如有图片或视频亦包括在内)由作者上传并发布,文章内容仅代表作者本人观点,简书系信息发布平台,仅提供信息存储服务。

推荐阅读更多精彩内容