【繪圖進(jìn)階】之帶連線的箱體圖繪制(8)

發(fā)稿時(shí)間：2020-08-21來(lái)源：天昊生物

上回我們使用ggpaired包繪制成對(duì)樣品（2組）的箱體圖，但ggpaired只能繪制2個(gè)箱體圖，有老師希望能繪制連續(xù)時(shí)間上物種的變化。這里，我們展示4組之間的箱體圖繪制結(jié)果。

In[1]:

library(ggplot2)

 

read.table讀取文件，head查看文件頭部

In[2]:

data = read.table('alpha.diversity.index.xls',header = T,sep = 't',row.names = 1)
head(data)

Out[2]:

查看文件列名

In[3]:

rownames(data)

Out[3]:

'A1' 'A2' 'A3' 'A4' 'A5' 'A6' 'B1' 'B2' 'B3' 'B4' 'B5' 'B6' 'C1' 'C2' 'C3' 'C4' 'C5' 'C6' 'D1' 'D2' 'D3' 'D4' 'D5' 'D6'

In [4]:

apply(data,2,sum)

Out[4]:

In [5]:

apply(data,2,function(x){ df = data.frame(x,group=rep(c('A','B','C','D'),each = 6),sub_group=as.factor(rep(1:6,times  = 4)))
                        ggplot(data = df,aes(x=group,y=x,fill=group)) + geom_boxplot() +
                        geom_point(aes(colour=sub_group),size=4) +    
                        geom_line(aes(group=sub_group,colour=sub_group) ,size=0.8,) 
                        })

Out[5]:

往期相關(guān)鏈接：

1、R基礎(chǔ)篇

excel不熟練怎么辦，R來(lái)幫您（一）數(shù)據(jù)分類(lèi)匯總；

如何使用Rstudio練習(xí)R基礎(chǔ)教程；

R相關(guān)軟件及R包安裝；

【零基礎(chǔ)學(xué)繪圖】之氣泡圖繪制（六）；

【零基礎(chǔ)學(xué)繪圖】之繪制venn圖（五）；
【零基礎(chǔ)學(xué)繪圖】之繪制barplot柱狀圖圖（四）；
【零基礎(chǔ)學(xué)繪圖】之繪制heatmap圖（三）；

【零基礎(chǔ)學(xué)繪圖】之繪制PCA圖（二）；

【零基礎(chǔ)學(xué)繪圖】之a(chǎn)lpha指數(shù)箱體圖繪制（一）；

2、R進(jìn)階

【繪圖進(jìn)階】之配對(duì)箱體圖繪制(七)；

【繪圖進(jìn)階】之通路與菌的相關(guān)性分析熱圖(六)；

【繪圖進(jìn)階】之lefse定制化繪圖(五)；

【繪圖進(jìn)階】之六種帶中心點(diǎn)的PCA 圖和三維PCA圖繪制（四）；

【繪圖進(jìn)階】之交互式可刪減分組和顯示樣品名的PCA 圖（三）；

【繪圖進(jìn)階】之繪制PCA biplot圖(二)；

【進(jìn)階篇繪圖】之帶P值的箱體圖、小提琴圖繪制（一）；

3、數(shù)據(jù)提交

3分鐘學(xué)會(huì)微生物多樣性云平臺(tái)數(shù)據(jù)分析;

3分鐘學(xué)會(huì)CHIP-seq類(lèi)實(shí)驗(yàn)測(cè)序數(shù)據(jù)可視化 —IGV的使用手冊(cè)；

10分鐘搞定多樣性數(shù)據(jù)提交，最快半天內(nèi)獲取登錄號(hào)，史上最全的多樣性原始數(shù)據(jù)提交教程；

20分鐘搞定GEO上傳，史上最簡(jiǎn)單、最詳細(xì)的GEO數(shù)據(jù)上傳攻略；

4、表達(dá)譜分析

表達(dá)譜分析（二）通路富集分析和基因互作網(wǎng)絡(luò)圖繪制；

如何對(duì)GEO數(shù)據(jù)進(jìn)行差異分析；

miRNA靶基因預(yù)測(cè)軟件__miRWalk 3.0；

5、醫(yī)學(xué)數(shù)據(jù)分析

KING: 樣本親緣關(guān)系鑒定工具；

【W(wǎng)GS服務(wù)升級(jí)】人工智能軟件SpliceAI助力解讀罕見(jiàn)和未確診疾病中的非編碼突變；

隱性疾病trio家系別忽視單親二倍體現(xiàn)象——天昊數(shù)據(jù)分析助力臨床疾病診斷新添UPD（單親二倍體）可視化分析工具；

【昊工具】Oh My God! 太好用了吧！疾病或表型的關(guān)鍵基因查詢數(shù)據(jù)庫(kù)，我不允許你不知道Phenolyzer；

天昊客戶服務(wù)中心

手機(jī)/微信號(hào)：18964693703

【本群將為大家提供】

分享生信分析方案

提供數(shù)據(jù)素材及分析軟件支持

定期開(kāi)展生信分析線上講座

QQ號(hào)：1040471849