R语言作图——Pie chart
参考: https://www.jianshu.com/p/5118cb3307c8
作图的流程如下,先画出堆积柱状图之后,在此基础上再修改细节。

具体步骤如下:
Step 1. 绘图数据的准备
首先还是要把你想要绘图的数据调整成R语言可以识别的格式excel中保存成csv格式。
数据的格式如下图:

Step2. 绘图数据的读取
data<-read.csv(“your file path”, header = T)
data$Group <- factor(data$Group, levels=data$Group) # 把group一列转化为因子型,并确定因子的顺序
Step3.绘图所需package的调用
library(ggplot2)
Step4. 饼图百分比标签准备
mylabel<-paste(data[,2],"%") #数值后加百分号,赋值给一个向量
mylabel<-rev(mylabel) #rev()函数颠倒标签的顺序
percent<-rev(data$Percentage) #颠倒标签在y轴上的顺序

Step5.绘图
p<-ggplot(data,aes(x="",y=Percentage,fill=Group)) +
geom_bar(stat = "identity",color="white") +
scale_fill_manual(values = c("#FFA533","#2BCF76","#4874EC","#A372E6")) +
coord_polar(theta = "y") +
theme(axis.text.x = element_blank(),
axis.ticks = element_blank(),
panel.grid = element_blank()) +
geom_text(aes(y= cumsum(percent)-percent/2, x= 1),label=mylabel)
p

请关注“恒诺新知”微信公众号,感谢“R语言“,”数据那些事儿“,”老俊俊的生信笔记“,”冷🈚️思“,“珞珈R”,“生信星球”的支持!