跟著Nature Communications學(xué)作圖:R語(yǔ)言ggtern包畫(huà)三元相圖(Ternary plots )

論文

A highly conserved core bacterial microbiota with nitrogen-fixation capacity inhabits the xylem sap in maize plants

https://www.nature.com/articles/s41467-022-31113-w

本地pdf s41467-022-31113-w.pdf

數(shù)據(jù)代碼鏈接

https://github.com/PlantNutrition/Liyu

今天的推文我們重復(fù)一下論文中的Figure2f

image.png

這個(gè)圖怎們看,然后表達(dá)的是什么含義莲祸,我暫時(shí)還想不明白蹂安,論文中給的圖注是

Ternary plots of OTUs in xylem sap across three fertilisation treatments. Size of each point represents relative abundance of OTU. Position is determined by the contribution of three fertilisation treatments to the total relative abundance, proximity to that vertex indicates enrichment of that OTU in that fertilisation treatment. Colours of circles correspond to different genera. Grey circles indicate OTUs with no significant differences in abundance.

作圖數(shù)據(jù)部分截圖

image.png

ggtern 這個(gè)R包是我第一次使用,首先需要安裝锐帜,運(yùn)行代碼install.packages("ggtern")

讀取數(shù)據(jù)集

plot_data <- read.table("data/20220612/Tern_data.txt", 
                       header=T, 
                       row.names= 1, 
                       sep="\t", 
                       comment.char = "")

作圖代碼

library(ggtern)
p <- ggtern(data=plot_data, aes(x=CK, y=NPK, z=NPKM)) + 
  geom_mask() + 
  geom_point(aes(size=size, color=Genus),alpha=0.8) +
  scale_size(range = c(0, 10)) +
  scale_color_manual(values  = c('#E31A1C','#228B22','#1F78B4', '#FDB462', '#8B658B',  '#4876FF', '#00BFFF', '#EE82EE','#8B8682','#CDC9C9'), limits = c('Klebsiella','Pseudomonas','Enterobacteriaceae_unclassified','Rosenbergiella','Oxalobacteraceae_unclassified','Sphingobacterium','Lactococcus','Erwinia','Others','NotSig')) +
  guides(size="none") +theme_bw() +
  theme(axis.text=element_blank(), axis.ticks=element_blank())
p

論文中的代碼出圖

image.png

調(diào)整圖例的位置田盈,可以用ggplot2中調(diào)整圖例的方法

p+
  theme(legend.position = "bottom")+
  guides(color=guide_legend(nrow = 3,
                            override.aes = list(size = 5),
                            title.position = "top"))
image.png

試了一下和其他ggplot2的圖進(jìn)行組合,patchwork沒(méi)有成功缴阎,找找有沒(méi)有其他辦法可以實(shí)現(xiàn)組合圖

示例數(shù)據(jù)和代碼可以在公眾號(hào)后臺(tái)留言20220612獲取

歡迎大家關(guān)注我的公眾號(hào)

小明的數(shù)據(jù)分析筆記本

小明的數(shù)據(jù)分析筆記本 公眾號(hào) 主要分享:1允瞧、R語(yǔ)言和python做數(shù)據(jù)分析和數(shù)據(jù)可視化的簡(jiǎn)單小例子;2蛮拔、園藝植物相關(guān)轉(zhuǎn)錄組學(xué)述暂、基因組學(xué)、群體遺傳學(xué)文獻(xiàn)閱讀筆記建炫;3畦韭、生物信息學(xué)入門學(xué)習(xí)資料及自己的學(xué)習(xí)筆記!

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末肛跌,一起剝皮案震驚了整個(gè)濱河市艺配,隨后出現(xiàn)的幾起案子察郁,更是在濱河造成了極大的恐慌,老刑警劉巖转唉,帶你破解...
    沈念sama閱讀 218,204評(píng)論 6 506
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件皮钠,死亡現(xiàn)場(chǎng)離奇詭異,居然都是意外死亡赠法,警方通過(guò)查閱死者的電腦和手機(jī)麦轰,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 93,091評(píng)論 3 395
  • 文/潘曉璐 我一進(jìn)店門,熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)砖织,“玉大人款侵,你說(shuō)我怎么就攤上這事∠獍” “怎么了喳坠?”我有些...
    開(kāi)封第一講書(shū)人閱讀 164,548評(píng)論 0 354
  • 文/不壞的土叔 我叫張陵鞠评,是天一觀的道長(zhǎng)茂蚓。 經(jīng)常有香客問(wèn)我,道長(zhǎng)剃幌,這世上最難降的妖魔是什么聋涨? 我笑而不...
    開(kāi)封第一講書(shū)人閱讀 58,657評(píng)論 1 293
  • 正文 為了忘掉前任,我火速辦了婚禮负乡,結(jié)果婚禮上牍白,老公的妹妹穿的比我還像新娘。我一直安慰自己抖棘,他們只是感情好茂腥,可當(dāng)我...
    茶點(diǎn)故事閱讀 67,689評(píng)論 6 392
  • 文/花漫 我一把揭開(kāi)白布。 她就那樣靜靜地躺著切省,像睡著了一般最岗。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上朝捆,一...
    開(kāi)封第一講書(shū)人閱讀 51,554評(píng)論 1 305
  • 那天般渡,我揣著相機(jī)與錄音,去河邊找鬼芙盘。 笑死驯用,一個(gè)胖子當(dāng)著我的面吹牛,可吹牛的內(nèi)容都是我干的儒老。 我是一名探鬼主播蝴乔,決...
    沈念sama閱讀 40,302評(píng)論 3 418
  • 文/蒼蘭香墨 我猛地睜開(kāi)眼,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼驮樊!你這毒婦竟也來(lái)了淘这?” 一聲冷哼從身側(cè)響起剥扣,我...
    開(kāi)封第一講書(shū)人閱讀 39,216評(píng)論 0 276
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤,失蹤者是張志新(化名)和其女友劉穎铝穷,沒(méi)想到半個(gè)月后钠怯,有當(dāng)?shù)厝嗽跇?shù)林里發(fā)現(xiàn)了一具尸體,經(jīng)...
    沈念sama閱讀 45,661評(píng)論 1 314
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡曙聂,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 37,851評(píng)論 3 336
  • 正文 我和宋清朗相戀三年晦炊,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片宁脊。...
    茶點(diǎn)故事閱讀 39,977評(píng)論 1 348
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡断国,死狀恐怖,靈堂內(nèi)的尸體忽然破棺而出榆苞,到底是詐尸還是另有隱情稳衬,我是刑警寧澤,帶...
    沈念sama閱讀 35,697評(píng)論 5 347
  • 正文 年R本政府宣布坐漏,位于F島的核電站薄疚,受9級(jí)特大地震影響,放射性物質(zhì)發(fā)生泄漏赊琳。R本人自食惡果不足惜街夭,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,306評(píng)論 3 330
  • 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望躏筏。 院中可真熱鬧板丽,春花似錦、人聲如沸趁尼。這莊子的主人今日做“春日...
    開(kāi)封第一講書(shū)人閱讀 31,898評(píng)論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)酥泞。三九已至砚殿,卻和暖如春,著一層夾襖步出監(jiān)牢的瞬間婶博,已是汗流浹背瓮具。 一陣腳步聲響...
    開(kāi)封第一講書(shū)人閱讀 33,019評(píng)論 1 270
  • 我被黑心中介騙來(lái)泰國(guó)打工, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留凡人,地道東北人名党。 一個(gè)月前我還...
    沈念sama閱讀 48,138評(píng)論 3 370
  • 正文 我出身青樓,卻偏偏與公主長(zhǎng)得像挠轴,于是被迫代替她去往敵國(guó)和親传睹。 傳聞我的和親對(duì)象是個(gè)殘疾皇子,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 44,927評(píng)論 2 355

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