ggtree實現(xiàn)系統(tǒng)發(fā)育樹可視化

背景1:Newick格式

Newick是最常用的存儲進化樹的文件格式,如上面這個樹,拓樸結(jié)構(gòu)用newick格式可以表示為:

(B,(A,C,E),D);

括號最外層是根節(jié)點锨侯,它有三個子節(jié)點钉疫,B, (A,C,E)和D,而節(jié)點(A,C,E)也有三個子節(jié)點A捉偏,C和E。

加上分支長度泻红,使用 : 來分隔:

(B:6.0,(A:5.0,C:3.0,E:4.0):5.0,D:11.0);

比如A:5.0代表的是A與其父節(jié)點的距離是5.0夭禽。

內(nèi)部節(jié)點也可以有l(wèi)abel,寫在相應的括號外面谊路,如下所示:

(B:6.0,(A:5.0,C:3.0,E:4.0)Ancestor1:5.0,D:11.0);

這是最為廣泛支持的文件格式讹躯,很多進化樹可視軟件只支持newick格式。

背景2: 如何判斷無根樹有根樹缠劝?

假設(shè)有下面三種形式的進化樹:

[1] (a, b, c);? ? ? 無根樹

[2] (a, b, c):1;? 有根樹

[3] ((a,b),c);? ? ? 有根樹

如果最外層大括號內(nèi)只有兩個分枝潮梯,即為有根樹,如[3]惨恭;

如果最外層大括號內(nèi)有三個或以上分枝秉馏,一般為無根樹,如[1]脱羡;

但是萝究,如果大括號外存在枝長參數(shù)免都,如[2]中的:1,這種情況認為三個分枝以一定的枝長連接到根上帆竹,為有根樹

ggtree使用

ggtree只映射節(jié)點到坐標系統(tǒng)中绕娘,而線條在geom_tree圖層中計算并畫出來。這是與其它軟件最根本的不同栽连,也是ggtree能夠簡單地用圖層加注釋信息的基礎(chǔ)险领。

1.ggtree安裝

if (!requireNamespace("BiocManager", quietly = TRUE))

? ? install.packages("BiocManager")

BiocManager::install("ggtree")

2.加載包

library("ggplot2")

library("ggtree")

3. 讀取數(shù)據(jù)

tree=read.tree("D:/xxx.tre")

group_file = read.csv("D:/xx.csv",header = T, row.names =1) #讀取物種group信息文件,注意要與載入的Tree文件的lable相同秒紧,否則無法加載分組顏色绢陌!

4. 添加分組信息數(shù)據(jù)至變量

groupInfo <- split(row.names(group_file), group_file$family) # 提取分組信息

tree1 <- groupOTU(tree, groupInfo)? #將分組信息賦予給樹

ggtree(tree, layout = "circular")

5. 運行

ggtree(tree, layout = "circular")? #簡單

ggtree(tree,layout = "circular") + geom_tiplab() + geom_point(color='firebrick') #

ggtree(tree1,layout = "circular") +geom_highlight(node = 1872,fill="blue ",alpha=0.5)+? geom_highlight(node=1081,fill=" orange", alpha=0.5)+?geom_highlight(node=1079,fill=" red ")+ geom_cladelabel(node=1872,label="Pinopsida",offset=1.2,barsize = 4,color=" blue ")+geom_cladelabel(node=1081,label="Magnoliopsida",offset=1.2,barsize = 4,color=" orange",)+geom_cladelabel(node=1079,label="Ginkgoopsida",offset=1.2,barsize = 4,color="red")? #自定義


參考:

G Yu, DK Smith, H Zhu, Y Guan, TTY Lam*.ggtree: an R package for visualization and annotation of phylogenetic treeswith their covariates and other associated data. Methods in Ecology andEvolution. 2017, 8(1):28-36.

使用ggtree實現(xiàn)進化樹的可視化和注釋(轉(zhuǎn)載)。作者:余光創(chuàng)噩茄。開發(fā)過多個R/Bioconductor包下面,包括ChIPseeker, clusterProfiler, DOSE,ggtree,GOSemSim和ReactomePA. 鏈接:https://guangchuangyu.github.io/cn/2016/03/ggtree-for-tree-visualization-annotation/?

怎樣判斷newick格式的進化樹是有根樹绩聘,還是無根樹沥割?http://blog.sciencenet.cn/blog-656335-926722.html

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末,一起剝皮案震驚了整個濱河市凿菩,隨后出現(xiàn)的幾起案子机杜,更是在濱河造成了極大的恐慌,老刑警劉巖衅谷,帶你破解...
    沈念sama閱讀 222,104評論 6 515
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件椒拗,死亡現(xiàn)場離奇詭異,居然都是意外死亡获黔,警方通過查閱死者的電腦和手機蚀苛,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 94,816評論 3 399
  • 文/潘曉璐 我一進店門,熙熙樓的掌柜王于貴愁眉苦臉地迎上來玷氏,“玉大人堵未,你說我怎么就攤上這事≌荡ィ” “怎么了渗蟹?”我有些...
    開封第一講書人閱讀 168,697評論 0 360
  • 文/不壞的土叔 我叫張陵,是天一觀的道長赞辩。 經(jīng)常有香客問我雌芽,道長,這世上最難降的妖魔是什么辨嗽? 我笑而不...
    開封第一講書人閱讀 59,836評論 1 298
  • 正文 為了忘掉前任世落,我火速辦了婚禮,結(jié)果婚禮上糟需,老公的妹妹穿的比我還像新娘岛心。我一直安慰自己来破,他們只是感情好,可當我...
    茶點故事閱讀 68,851評論 6 397
  • 文/花漫 我一把揭開白布忘古。 她就那樣靜靜地躺著番捂,像睡著了一般叼风。 火紅的嫁衣襯著肌膚如雪划鸽。 梳的紋絲不亂的頭發(fā)上萄窜,一...
    開封第一講書人閱讀 52,441評論 1 310
  • 那天捺典,我揣著相機與錄音联逻,去河邊找鬼盖喷。 笑死桩撮,一個胖子當著我的面吹牛炮沐,可吹牛的內(nèi)容都是我干的争群。 我是一名探鬼主播,決...
    沈念sama閱讀 40,992評論 3 421
  • 文/蒼蘭香墨 我猛地睜開眼大年,長吁一口氣:“原來是場噩夢啊……” “哼换薄!你這毒婦竟也來了?” 一聲冷哼從身側(cè)響起翔试,我...
    開封第一講書人閱讀 39,899評論 0 276
  • 序言:老撾萬榮一對情侶失蹤轻要,失蹤者是張志新(化名)和其女友劉穎,沒想到半個月后垦缅,有當?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體冲泥,經(jīng)...
    沈念sama閱讀 46,457評論 1 318
  • 正文 獨居荒郊野嶺守林人離奇死亡,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 38,529評論 3 341
  • 正文 我和宋清朗相戀三年壁涎,在試婚紗的時候發(fā)現(xiàn)自己被綠了凡恍。 大學時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點故事閱讀 40,664評論 1 352
  • 序言:一個原本活蹦亂跳的男人離奇死亡怔球,死狀恐怖嚼酝,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情庞溜,我是刑警寧澤革半,帶...
    沈念sama閱讀 36,346評論 5 350
  • 正文 年R本政府宣布,位于F島的核電站流码,受9級特大地震影響又官,放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜漫试,卻給世界環(huán)境...
    茶點故事閱讀 42,025評論 3 334
  • 文/蒙蒙 一六敬、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧驾荣,春花似錦外构、人聲如沸普泡。這莊子的主人今日做“春日...
    開封第一講書人閱讀 32,511評論 0 24
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽撼班。三九已至,卻和暖如春垒酬,著一層夾襖步出監(jiān)牢的瞬間砰嘁,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 33,611評論 1 272
  • 我被黑心中介騙來泰國打工勘究, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留矮湘,地道東北人。 一個月前我還...
    沈念sama閱讀 49,081評論 3 377
  • 正文 我出身青樓口糕,卻偏偏與公主長得像缅阳,于是被迫代替她去往敵國和親。 傳聞我的和親對象是個殘疾皇子景描,可洞房花燭夜當晚...
    茶點故事閱讀 45,675評論 2 359

推薦閱讀更多精彩內(nèi)容