R語(yǔ)言GOplot包畫(huà)弦圖如何準(zhǔn)備自己的數(shù)據(jù)~寫(xiě)了一個(gè)簡(jiǎn)單的python腳本枫笛,雖然丑但是能用

GOplot那個(gè)R語(yǔ)言包畫(huà)弦圖展示GO富集分析的結(jié)果吨灭,圖還挺漂亮的,但是如果是自己的數(shù)據(jù)到最終他的畫(huà)圖需要的輸入數(shù)據(jù)還挺麻煩的刑巧,我這邊寫(xiě)了一個(gè)python腳本喧兄,希望可以簡(jiǎn)化畫(huà)圖數(shù)據(jù)的準(zhǔn)備過(guò)程,腳本寫(xiě)的比較丑啊楚,但是湊合著能用

你自己需要準(zhǔn)備的數(shù)據(jù)是

  • GO富集分析的結(jié)果
  • 感興趣的基因列表(每行一個(gè)基因名)
  • 感興趣的基因?qū)?yīng)的數(shù)據(jù)(比如表達(dá)量或者其他)
    一個(gè)基因名對(duì)應(yīng)著一個(gè)數(shù)據(jù)吠冤,每行一個(gè)
  • 感興趣的Term的名字(每行一個(gè))

運(yùn)行腳本

python .\prepare_input_df_for_R_GOplot_GOchord.py .\genes.txt .\process.txt .\GO_enrich_result.tsv a b 3 4 output-1.txt
  • 第一個(gè)位置是感興趣的基因名文件
  • 第二個(gè)位置是感興趣的Term的文件
  • 第三個(gè)位置是GO富集分析的結(jié)果文件
  • 第四個(gè)位置是GO富集分析結(jié)果文件的分隔符
    a代表制表符
    b代表逗號(hào)
    d代表斜線/
  • 第五個(gè)位置是GO富集分析結(jié)果文件中基因名那一列的分隔符 abd同上
  • 第六個(gè)是GO富集分析結(jié)果文件中Term對(duì)應(yīng)的是哪一列
  • 第七個(gè)是GO富集分析結(jié)果文件中基因名對(duì)應(yīng)的是哪一列
  • 第八個(gè)參數(shù)是輸出文件的名字

這樣就獲得了output-1.txt這個(gè)文件,接下來(lái)是R語(yǔ)言里的代碼

df<-read.csv("D:/Jupyter/GOplot/example/output-1.txt",
             header = T,
             sep="\t",
             row.names = 1,
             check.names = F)

head(df)
df<-df[,1:dim(df)[2]-1]

首先是讀入數(shù)據(jù)恭理,python腳本輸出的文件是制表符分隔的
結(jié)尾處有一列空值拯辙,python里不知道如何刪掉,這里讀入數(shù)據(jù)以后再刪掉吧

which(rowSums(df) == 0)

數(shù)據(jù)每行都是0颜价,和1涯保,還得檢查一下有沒(méi)有哪一行全是0,如果全是0這一行得刪掉

df1<-read.csv("D:/Jupyter/GOplot/example/geneslogfc.csv")
df$logFC<-df1$logFC

讀取帶數(shù)值的基因文件周伦,這個(gè)基因文件的順序需要和感興趣的基因那個(gè)文件完全保持一致

最后就是畫(huà)圖了

library(GOplot)
library(ggplot2)
p1<-GOChord(as.matrix(df), 
        space = 0.02, 
        gene.order = 'logFC', 
        gene.space = 0.25, gene.size = 5)

ggsave(filename = "GOplot_example/p3.pdf",
       p1,
       width = 15,height = 15)
image.png
后記

python里是可以調(diào)用R語(yǔ)言的夕春,好好研究一些,看能不能直接一個(gè)python腳本出圖专挪,那樣就非常方便了

歡迎大家關(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é)入門(mén)學(xué)習(xí)資料及自己的學(xué)習(xí)筆記冶共!

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末,一起剝皮案震驚了整個(gè)濱河市潭枣,隨后出現(xiàn)的幾起案子比默,更是在濱河造成了極大的恐慌幻捏,老刑警劉巖盆犁,帶你破解...
    沈念sama閱讀 216,372評(píng)論 6 498
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件,死亡現(xiàn)場(chǎng)離奇詭異篡九,居然都是意外死亡谐岁,警方通過(guò)查閱死者的電腦和手機(jī),發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 92,368評(píng)論 3 392
  • 文/潘曉璐 我一進(jìn)店門(mén)榛臼,熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)伊佃,“玉大人,你說(shuō)我怎么就攤上這事沛善『饺啵” “怎么了?”我有些...
    開(kāi)封第一講書(shū)人閱讀 162,415評(píng)論 0 353
  • 文/不壞的土叔 我叫張陵金刁,是天一觀的道長(zhǎng)帅涂。 經(jīng)常有香客問(wèn)我,道長(zhǎng)尤蛮,這世上最難降的妖魔是什么媳友? 我笑而不...
    開(kāi)封第一講書(shū)人閱讀 58,157評(píng)論 1 292
  • 正文 為了忘掉前任,我火速辦了婚禮产捞,結(jié)果婚禮上醇锚,老公的妹妹穿的比我還像新娘。我一直安慰自己坯临,他們只是感情好焊唬,可當(dāng)我...
    茶點(diǎn)故事閱讀 67,171評(píng)論 6 388
  • 文/花漫 我一把揭開(kāi)白布。 她就那樣靜靜地躺著看靠,像睡著了一般赶促。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上衷笋,一...
    開(kāi)封第一講書(shū)人閱讀 51,125評(píng)論 1 297
  • 那天芳杏,我揣著相機(jī)與錄音矩屁,去河邊找鬼。 笑死爵赵,一個(gè)胖子當(dāng)著我的面吹牛吝秕,可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播空幻,決...
    沈念sama閱讀 40,028評(píng)論 3 417
  • 文/蒼蘭香墨 我猛地睜開(kāi)眼烁峭,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼!你這毒婦竟也來(lái)了秕铛?” 一聲冷哼從身側(cè)響起约郁,我...
    開(kāi)封第一講書(shū)人閱讀 38,887評(píng)論 0 274
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤,失蹤者是張志新(化名)和其女友劉穎但两,沒(méi)想到半個(gè)月后鬓梅,有當(dāng)?shù)厝嗽跇?shù)林里發(fā)現(xiàn)了一具尸體,經(jīng)...
    沈念sama閱讀 45,310評(píng)論 1 310
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡谨湘,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 37,533評(píng)論 2 332
  • 正文 我和宋清朗相戀三年绽快,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片紧阔。...
    茶點(diǎn)故事閱讀 39,690評(píng)論 1 348
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡坊罢,死狀恐怖,靈堂內(nèi)的尸體忽然破棺而出擅耽,到底是詐尸還是另有隱情活孩,我是刑警寧澤,帶...
    沈念sama閱讀 35,411評(píng)論 5 343
  • 正文 年R本政府宣布乖仇,位于F島的核電站憾儒,受9級(jí)特大地震影響,放射性物質(zhì)發(fā)生泄漏这敬。R本人自食惡果不足惜航夺,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,004評(píng)論 3 325
  • 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望崔涂。 院中可真熱鬧阳掐,春花似錦、人聲如沸冷蚂。這莊子的主人今日做“春日...
    開(kāi)封第一講書(shū)人閱讀 31,659評(píng)論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)蝙茶。三九已至艺骂,卻和暖如春,著一層夾襖步出監(jiān)牢的瞬間隆夯,已是汗流浹背钳恕。 一陣腳步聲響...
    開(kāi)封第一講書(shū)人閱讀 32,812評(píng)論 1 268
  • 我被黑心中介騙來(lái)泰國(guó)打工别伏, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留,地道東北人忧额。 一個(gè)月前我還...
    沈念sama閱讀 47,693評(píng)論 2 368
  • 正文 我出身青樓厘肮,卻偏偏與公主長(zhǎng)得像,于是被迫代替她去往敵國(guó)和親睦番。 傳聞我的和親對(duì)象是個(gè)殘疾皇子类茂,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 44,577評(píng)論 2 353

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