多維venn圖

研究背景

維恩圖(Venn diagram)霸奕,也稱韋恩圖、文氏圖吉拳、溫氏圖质帅,是利用集合分類的原理將特定的數(shù)據(jù)進(jìn)行分類或歸類。
在生信分析中留攒,Venn圖可用于統(tǒng)計(jì)多組或多個樣本中共有和獨(dú)有的物種的(OUT煤惩、Gene)數(shù)目,可以比較直觀的展現(xiàn)不同環(huán)境樣本中物種的OTU或者樣本之間的Gene組成相似性及重疊情況炼邀,一般用于2~7組數(shù)據(jù)的比較分析魄揉。繪出的圖一般長這樣:

分析方法

實(shí)戰(zhàn)演練

# 讀入數(shù)據(jù)
df = readFlie('./venn.txt',type = 'txt',row = F)
# 抽取數(shù)據(jù),制造測試數(shù)據(jù)
set.seed(1234)
df_list = list('Symbol1'=sample(df$symbol,180),'Symbol2'=sample(df$symbol,200),
               'Symbol3'=sample(df$symbol,220),'Symbol4'=sample(df$symbol,240),
               'Symbol5'=sample(df$symbol,260),'Symbol6'=sample(df$symbol,280),
               'Symbol7'=sample(df$symbol,300))
# 繪制venn圖
## 4維veen圖
fg_4 = wn_venn(df_list[1:4])
## 5維veen圖
fg_5 = wn_venn(df_list[1:5])
## 7維veen圖
fg_7 = wn_venn(df_list)
# 保存圖片
savePlots(path = './fg_4.pdf',plot = fg_4,type = 'pdf',width = 10,height = 10)
savePlots(path = './fg_4.png',plot = fg_4,type = 'png',width = 10,height = 10,dpi = 300)
savePlots(path = './fg_4.tiff',plot = fg_4,type = 'tiff',width = 10,height = 10,dpi = 600)

pdf('./fg5.pdf',width = 10,height = 10)
fg_5 = wn_venn(df_list[1:5])
dev.off()
pdf('./fg7.pdf',width = 10,height = 10)
fg_7 = wn_venn(df_list)
dev.off()

獲取資源

關(guān)注微信公眾號拭宁,回復(fù)關(guān)鍵詞“Venn”洛退,獲取腳本源碼和測試數(shù)據(jù)下載路徑瓣俯。

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末,一起剝皮案震驚了整個濱河市兵怯,隨后出現(xiàn)的幾起案子彩匕,更是在濱河造成了極大的恐慌,老刑警劉巖媒区,帶你破解...
    沈念sama閱讀 217,185評論 6 503
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件驼仪,死亡現(xiàn)場離奇詭異,居然都是意外死亡袜漩,警方通過查閱死者的電腦和手機(jī)谅畅,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 92,652評論 3 393
  • 文/潘曉璐 我一進(jìn)店門,熙熙樓的掌柜王于貴愁眉苦臉地迎上來噪服,“玉大人,你說我怎么就攤上這事胜茧≌秤牛” “怎么了?”我有些...
    開封第一講書人閱讀 163,524評論 0 353
  • 文/不壞的土叔 我叫張陵呻顽,是天一觀的道長雹顺。 經(jīng)常有香客問我,道長廊遍,這世上最難降的妖魔是什么嬉愧? 我笑而不...
    開封第一講書人閱讀 58,339評論 1 293
  • 正文 為了忘掉前任,我火速辦了婚禮喉前,結(jié)果婚禮上没酣,老公的妹妹穿的比我還像新娘。我一直安慰自己卵迂,他們只是感情好裕便,可當(dāng)我...
    茶點(diǎn)故事閱讀 67,387評論 6 391
  • 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著见咒,像睡著了一般偿衰。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上改览,一...
    開封第一講書人閱讀 51,287評論 1 301
  • 那天下翎,我揣著相機(jī)與錄音,去河邊找鬼宝当。 笑死视事,一個胖子當(dāng)著我的面吹牛,可吹牛的內(nèi)容都是我干的庆揩。 我是一名探鬼主播郑口,決...
    沈念sama閱讀 40,130評論 3 418
  • 文/蒼蘭香墨 我猛地睜開眼鸳碧,長吁一口氣:“原來是場噩夢啊……” “哼!你這毒婦竟也來了犬性?” 一聲冷哼從身側(cè)響起瞻离,我...
    開封第一講書人閱讀 38,985評論 0 275
  • 序言:老撾萬榮一對情侶失蹤,失蹤者是張志新(化名)和其女友劉穎乒裆,沒想到半個月后套利,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體,經(jīng)...
    沈念sama閱讀 45,420評論 1 313
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡鹤耍,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 37,617評論 3 334
  • 正文 我和宋清朗相戀三年肉迫,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片稿黄。...
    茶點(diǎn)故事閱讀 39,779評論 1 348
  • 序言:一個原本活蹦亂跳的男人離奇死亡喊衫,死狀恐怖,靈堂內(nèi)的尸體忽然破棺而出杆怕,到底是詐尸還是另有隱情族购,我是刑警寧澤,帶...
    沈念sama閱讀 35,477評論 5 345
  • 正文 年R本政府宣布陵珍,位于F島的核電站寝杖,受9級特大地震影響,放射性物質(zhì)發(fā)生泄漏互纯。R本人自食惡果不足惜瑟幕,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,088評論 3 328
  • 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望留潦。 院中可真熱鬧只盹,春花似錦、人聲如沸兔院。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,716評論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽秆乳。三九已至懦鼠,卻和暖如春,著一層夾襖步出監(jiān)牢的瞬間屹堰,已是汗流浹背肛冶。 一陣腳步聲響...
    開封第一講書人閱讀 32,857評論 1 269
  • 我被黑心中介騙來泰國打工, 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留扯键,地道東北人睦袖。 一個月前我還...
    沈念sama閱讀 47,876評論 2 370
  • 正文 我出身青樓,卻偏偏與公主長得像荣刑,于是被迫代替她去往敵國和親馅笙。 傳聞我的和親對象是個殘疾皇子伦乔,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 44,700評論 2 354