[R语言可视化-精美图形绘制系列]--散点图+箱线图组合图

本期内容为[R语言可视化-精美图形绘制系列]--散点图+箱线图组合

代码部分：

1. 导入相关包和数据

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

2. 绘制基础图形

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 (%)"

3. 添加中位线

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)

4. 修改部分参数和添加主题

xlim(c(0,50)) + ylim(c(0,50))+
  theme_bw() + scale_color_npg(drop=FALSE)

5. 添加箱线图，使用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学作图]--散点图