本期内容为[R语言可视化-精美图形绘制系列]--散点图+箱线图组合
代码部分：
- 导入相关包和数据
library(ggExtra)
library(ggplot2)
#### 导入数据
cdata <- read.csv("20221128.input.csv", header = T)
cdata[1:5,1:6]
> cdata[1:5,1:6]
ID COINF First Second matches maj_or_min
1 21228183801 TRUE 39.0 38.0 Delta/Omicron(BA.1) Discordance
2 21228537801 TRUE 41.5 20.0 Delta/Omicron(BA.1) Secundary
3 21229656701 TRUE 9.0 10.0 Delta/Omicron(BA.1) Secundary
4 21229689701 TRUE 5.0 5.5 Delta/Omicron(BA.1) Secundary
5 21229716701 TRUE 34.0 33.0 Delta/Omicron(BA.1) Secundary
- 绘制基础图形
ggplot(cdata[cdata$COINF,], aes(x=First, y=Second))+
geom_point(aes(shape=maj_or_min,color=matches),alpha=0.9) +
xlab("Relative abundance of minor lineage\nin First Replicate (%)") +
ylab("Relative abundance of minor lineage\nin Second Replicate (%)"
- 添加中位线
geom_abline(intercept = 0, slope = 1,linetype = "dotted", alpha = 0.5, inherit.aes = FALSE) +
geom_hline(yintercept = 5,linetype = "dotted", alpha = 0.5) +
geom_vline(xintercept = 5,linetype = "dotted", alpha = 0.5)
- 修改部分参数和添加主题
xlim(c(0,50)) + ylim(c(0,50))+
theme_bw() + scale_color_npg(drop=FALSE)
- 添加箱线图，使用ggMarginal（）函数
ggMarginal(p, type="boxplot",size=10)
往期文章（总汇）
01-[R语言可视化-精美图形绘制系列]--精美火山图
02-R语言可视化-精美图形绘制系列--柱状图
03-R语言可视化-精美图形绘制系列--功能富集分析
04-R语言可视化-精美图形绘制系列—多组GO富集可视化
05-[R语言可视化-精美图形绘制系列--堆积图]
06-[R语言可视化-精美图形绘制系列--组间相关性分析]
07-[R语言可视化-精美图形绘制系列]--Mental分析
08-[R语言可视化-精美图形绘制系列--复杂热图+两图渐变连线]-【转载】
09-[R语言可视化-精美图形绘制系列--桑基图（Sankey）]
10-[R语言可视化-精美图形绘制系列--柱状图误差线标记]
11-跟着NC学作图 | 柱状图与相关性图
12-[R语言可视化-精美图形绘制系列--GO、KEGG富集通路关联图]
13-[跟着“基迪奥生物学”作图]--截断图
14-[R语言可视化-精美图形绘制系列]--显著性箱线图
14-2[R语言可视化]--箱线图不同的画法及参数设置 | 学习笔记
15-[R语言可视化-精美图形绘制系列]--组内相关性分析
16-[R语言可视化-精美图形绘制系列]--主成分分析（PCA）
017-[跟着NC学作图]--箱线图（一个函数获得Mean、SD、P值）
018-[跟着NC学作图]--生存分析（Survival analysis）
19-[跟着NC学作图]--散点图
