数据
使用随机编写数据，包含两列，一列为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
