掌握数据可视化利器：饼图和环形图绘制方法详解

在数据分析和可视化中，饼图和环形图是两种常用的图表类型，它们能够直观地展示数据的组成部分及其占比情况。

首先，让我们来了解一下如何绘制饼图。

准备数据（data1.csv）

#加载所需的包

library(dplyr) #数据预处理

library(ggplot2) # 绘图

library(ggpubr) #绘图

#读取数据

dat <- read.csv("data1.csv", header = TRUE)

#数据预处理

#添加新的列到数据集

dat <- mutate(dat, perc = value / sum(value)) # 计算每个数值在总和中的百分比并存储在 perc列中

dat <- mutate(dat, labels1 = scales::percent(perc))#将百分比格式化为带有百分号的字符串并存储在 labels1列中

dat <- mutate(dat, labels2 = paste0(dat$value, "\n", " (", dat$labels1, ")")) #创建包含数值和百分比的标签并存储在 labels2列中

#使用 ggpie函数创建饼图

ggpie(

data = dat,#输入数据集

x = "value", #饼图中要可视化的变量

fill = "group", #用于填充饼图不同部分的变量

label = "labels1", #包含饼图百分比标签的变量

lab.pos = "out", #标签的位置（在此处为饼图外部）

color = "black" #文本标签的颜色

)

#同时展示频次和百分比

ggpie(

data = dat,#输入数据集

x = "value", #饼图中要可视化的变量

fill = "group", #用于填充饼图不同部分的变量

label = "labels2", #包含饼图频次和百分比标签的变量

lab.pos = "out", #标签的位置（在此处为饼图外部）

color = "black" #文本标签的颜色

)

#绘制圆环图

ggdonutchart(

data = dat,#输入数据集

x = "value", #需要在圆环图中可视化的变量

fill = "group", #用于填充不同部分的圆环图的变量

label = "labels2", #包含圆环图标签的变量

lab.pos = "out", #标签位置（在此处为圆环图外部）

color = "black", #文本标签的颜色

lab.font = "black" #标签字体颜色

) +

theme(legend.position = "right") + #设置图例位置为右侧

labs(fill = "Group") #设置填充变量的图例标题为 "Group"

推荐课程

【课程】微生物比较基因组精品系列课——全套自学必入的系统课程

课程链接：微生物比较基因组精品系列课【全套】

【课程】铜绿假单胞菌基因组研究和分子分型实战

课程链接：铜绿假单胞菌基因组研究和分子分型实战

【课程】微生物比较基因组与群体进化——基因组变异专题研究

课程链接：微生物比较基因组与群体进化

【课程】微生物分子分型-MLST课程——分型全套（含理论、软件、方法）

课程链接：微生物分子分型-MLST课程

【课程】基因组结构分析神器Easyfig实操精品课

课程链接：基因组结构分析神器Easyfig实操精品课

【课程】BRIG绘图——结构比较专题2

课程链接：走进比较基因组，BRIG软件带你轻松玩绘图

【课程】肺炎克雷伯菌基因组学研究综合指南

课程链接：肺炎克雷伯菌基因组学研究综合指南

【课程】微生物基因组生信必学课程

课程链接：微生物基因组生信分析必学课程

【课程】微生物生防菌研究

课程链接：生防菌的系统化研究

专题材料

【资料】耐药专题材料

【资料】生防专题材料

请添加唯那生物技术客服小唯的微信号winnerbio01，备注“耐药专题”或“生防专题”，立马获取。

更多专题推荐

1、生信技能课专辑

2、耐药毒力专题

3、肺炎克雷伯菌专题

4、密码子偏好性专题

5、Easyfig相关问答

6、MLST-cgMLST

7、软件脚本分享

8、微生物基因组研究文章

9、知识干货

10、分泌系统

11、软件下载

12、书籍下载