本期內(nèi)容為[R語言可視化-精美圖形繪制系列]--散點(diǎn)圖+箱線圖組合
代碼部分：
- 導(dǎo)入相關(guān)包和數(shù)據(jù)
library(ggExtra)
library(ggplot2)
#### 導(dǎo)入數(shù)據(jù)
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
- 繪制基礎(chǔ)圖形
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)
- 修改部分參數(shù)和添加主題
xlim(c(0,50)) + ylim(c(0,50))+
theme_bw() + scale_color_npg(drop=FALSE)
- 添加箱線圖，使用ggMarginal（）函數(shù)
ggMarginal(p, type="boxplot",size=10)
往期文章（總匯）
01-[R語言可視化-精美圖形繪制系列]--精美火山圖
02-R語言可視化-精美圖形繪制系列--柱狀圖
03-R語言可視化-精美圖形繪制系列--功能富集分析
04-R語言可視化-精美圖形繪制系列—多組GO富集可視化
05-[R語言可視化-精美圖形繪制系列--堆積圖]
06-[R語言可視化-精美圖形繪制系列--組間相關(guān)性分析]
07-[R語言可視化-精美圖形繪制系列]--Mental分析
08-[R語言可視化-精美圖形繪制系列--復(fù)雜熱圖+兩圖漸變連線]-【轉(zhuǎn)載】
09-[R語言可視化-精美圖形繪制系列--?；鶊D（Sankey）]
10-[R語言可視化-精美圖形繪制系列--柱狀圖誤差線標(biāo)記]
11-跟著NC學(xué)作圖 | 柱狀圖與相關(guān)性圖
12-[R語言可視化-精美圖形繪制系列--GO、KEGG富集通路關(guān)聯(lián)圖]
13-[跟著“基迪奧生物學(xué)”作圖]--截?cái)鄨D
14-[R語言可視化-精美圖形繪制系列]--顯著性箱線圖
14-2[R語言可視化]--箱線圖不同的畫法及參數(shù)設(shè)置 | 學(xué)習(xí)筆記
15-[R語言可視化-精美圖形繪制系列]--組內(nèi)相關(guān)性分析
16-[R語言可視化-精美圖形繪制系列]--主成分分析（PCA）
017-[跟著NC學(xué)作圖]--箱線圖（一個(gè)函數(shù)獲得Mean、SD、P值）
018-[跟著NC學(xué)作圖]--生存分析（Survival analysis）
19-[跟著NC學(xué)作圖]--散點(diǎn)圖
