技术贴 | R语言ggplot2给箱图添加散点和连线
本文由阿童木根据实践经验而整理，希望对大家有帮助。
原创微文，欢迎转发转载。
在R中ggplot是一个非常灵活的绘图函数。ggplot2加geom_boxplot()可以绘制箱图，通过geom_point()可以给箱图添加散点，再通过geom_line()还可以继续添加散点之间的连线。下面来看如何实现。
一、组成概况
set.seed(1995)
# 随机种子
data=matrix(abs(round(rnorm(20, mean=20, sd=5))), 5, 4)
# 随机正整数，5行，4列
colnames(data)=paste("指标", 1:4, sep=".")
# 列名
rownames(data)=paste("样品", 1:5, sep=".")
# 行名
data # 查看数据，如下：
二、调整格式
library(reshape)
input=melt(data)
input # 结果如下：
三、ggplot画箱图
参数：geom_boxplot() # 箱图
plot1 = ggplot(input, aes(x=X2, y=value, fill=X2)) +
# 添加数据、xy值、 颜色
geom_boxplot() +
# 盒图
labs(x="指标(x轴)", y="值", fill="指标(图例)") +
# 设置xy轴和图例的标题
theme(panel.grid=element_blank(), panel.background=element_rect(fill='transparent', color='black'))
# 去掉背景网格：panel.grid=element_blank()
# 去掉灰色背景：panel.background=element_rect(fill='transparent'))
# 加上黑色边框：panel.background=element_rect(fill='transparent', color='black'))
plot1 # 展示结果
四、添加散点
参数：geom_point() # 散点图
plot2 = plot1 + geom_point(color="red")
# 添加散点，设置颜色
plot2 # 展示结果
五、添加连线
参数：geom_line() # 折线图
plot3 = plot1 + geom_point(color="red") + geom_line(aes(group=X1))
# 给来自相同样品的指标添加连线
plot3 # 展示结果
感谢阅读~
你可能还喜欢
1 技术贴 | 16S专题 | 简单介绍如何用自己的笔记本处理高通量16S数据
4 技术贴 | 宏转录组专题 | DDBJ数据库：宏转录组测序数据下载