其他
R可视化——饼图的绘制方法汇总
数据
使用随机编写数据，包含两列，一列为group，一列为value: 参考：见各函数帮助文档
rm(list=ls())df<-data.frame( group=c('A', 'B', 'C', 'D', 'E'), value=c(55,75,20,60,100))使用Pie函数绘制饼图
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))#自定义颜色ggoplot2包绘制饼图
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)#标签ggstatsplot包绘制饼图
基于ggstatsplot包中的ggpiestats()函数进行绘制，但是这个包使用的数据是不需要统计频数的，直接使用原始数据绘图即可：
#以数据集mtcars为例df1<-mtcarslibrary(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) #标题是否显示统计结果ggpubr包绘制饼图
library(ggpubr)ggpie(df, "value", #数据 label = "group",#标签 lab.pos = 'in',#标签位置 lab.font = c(5, 'white'),#标签大小及颜色 fill = "group", #填充 color = "grey",#间隔颜色 palette = rainbow(5))#填充颜色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)#图例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)#图例我就知道你“在看”