【代碼更新】單細(xì)胞分析實(shí)錄(21): 非負(fù)矩陣分解(NMF)的R代碼實(shí)現(xiàn)刮便,只需兩步讹蘑,啥圖都有

1. 起因

之前的代碼(單細(xì)胞分析實(shí)錄(17): 非負(fù)矩陣分解(NMF)代碼演示)沒(méi)有涉及到python語(yǔ)法怀樟,只有4個(gè)python命令行功偿,就跟Linux下面的ls grep一樣的盆佣。然鵝往堡,有幾個(gè)小伙伴不會(huì)命令行械荷,所以我決定再改寫一下,把命令行都放到R下面運(yùn)行虑灰。

2. 嘗試

2.1 一開始吨瞎,我的想法是教大家在R里面調(diào)用python,需要提前下載好anaconda和一些python包
然而想了想在Windows上安裝python包可能對(duì)大家不是很友好穆咐,有些包很難裝颤诀,我之前也弄了很久《耘龋考慮到這次更新是針對(duì)桌面版Rstudio用戶崖叫,故沒(méi)有采用。

2.2 最終拍柒,我采用的方案是心傀,使用Rstudio Server,也就是網(wǎng)頁(yè)版Rstudio
這樣做有幾個(gè)好處:

  • 直接和云服務(wù)器連接拆讯,服務(wù)器下載python包和R包都很容易(云服務(wù)器剛買脂男,下血本)
  • 我提前配置好運(yùn)行環(huán)境,用戶只需上傳數(shù)據(jù)种呐,分析數(shù)據(jù)宰翅,下載數(shù)據(jù)即可。

代碼方面也更加簡(jiǎn)化:

  • 我盡量減少了人工處理的時(shí)間爽室,主要分析代碼只有兩行

如果你之前在我這兒拿過(guò)代碼汁讼,可以直接找我要更新的代碼。此外肮之,如果因?yàn)橹暗拇a涉及命令行掉缺,你操作起來(lái)有困難,可以找我開Rstudio Server的賬戶 (高端玩家就別了戈擒,服務(wù)器配置比較低眶明,就夠幾個(gè)人用的那種)。

3. 注意
  • 我會(huì)提前安裝可能用到的R包筐高,所以不用重復(fù)安裝搜囱,直接library就可以
  • 請(qǐng)大家及時(shí)下載結(jié)果文件,以免丟失柑土;也請(qǐng)大家在做完分析后蜀肘,刪除表達(dá)數(shù)據(jù),服務(wù)器存儲(chǔ)空間不是很大
  • 每個(gè)賬號(hào)只保留半個(gè)月時(shí)間稽屏,若想再次使用扮宠,可以聯(lián)系我再開一個(gè)賬號(hào)
  • 有任何問(wèn)題可以微信或者郵箱問(wèn)我

接下來(lái)簡(jiǎn)單介紹一下,使用方法


登錄

打開我給你的鏈接狐榔,輸入用戶名和密碼即可登錄

之后就可以看見(jiàn)Rstudio的界面了

然后確保你的家目錄下面有圖中框出來(lái)的幾個(gè)文件坛增,并點(diǎn)擊進(jìn)入count_data文件夾

上傳數(shù)據(jù)

點(diǎn)擊upload上傳數(shù)據(jù)

運(yùn)行代碼

主要是3.R中的step1step2兩個(gè)函數(shù)

library(reticulate)

use_condaenv(condaenv = "cnmf_env", required = T,conda = "/home/hsy/miniconda3/bin/conda")
py_config() #如果顯示cnmf_env環(huán)境里面的python就OK

source("1.R")
step1(dir_input = "count_data",dir_output = "res1",k=3:5,iteration = 50) #這里為了演示方便获雕,取值都比較小

source("2.R")
step2(dir_input = "res1",dir_output = "res2",dir_count = "count_data",usage_filter = 0.03,top_gene = 30,cor_min = 0,cor_max = 0.6)

查看結(jié)果

step2之后,會(huì)在res2文件夾中生成結(jié)果文件

sampleID_program.usage.norm.txt和sampleID_program.Zscore.txt
是NMF分解表達(dá)矩陣得到的兩個(gè)矩陣

program_topngene.txt
這是所有program的前幾十個(gè)基因收捣,一般會(huì)放到文件附表

program_pearson_cor.complete.heatmap.pdf
program之間的相關(guān)性熱圖
cor_heatmap_data.txt
用來(lái)畫上圖的數(shù)據(jù)

program_topngene_enrichment.xlsx
program_topngene_enrichment_order.csv
這兩個(gè)都是對(duì)program前幾十個(gè)基因的富集分析結(jié)果届案,這兩個(gè)文件可以用來(lái)輔助我們理解program,其中第二個(gè)文件和相關(guān)性熱圖的順序一致罢艾,看起來(lái)更方便

sampleID_program_gene.heatmap.pdf
用來(lái)驗(yàn)證在這個(gè)樣本中楣颠,program找得對(duì)不對(duì),其實(shí)就是看program的表達(dá)咐蚯,一般看program的前幾十個(gè)基因
sampleID_data_heatmap.txt
用來(lái)畫上面那個(gè)熱圖的數(shù)據(jù)

program之間的相關(guān)性熱圖

某個(gè)樣本中program的表達(dá)

下載結(jié)果

選中你想導(dǎo)出的文件童漩,點(diǎn)擊more,再點(diǎn)擊Export就可以了


至此春锋,公眾號(hào)僅有的兩篇付費(fèi)教程都已更新完畢~

因水平有限睁冬,有錯(cuò)誤的地方,歡迎批評(píng)指正看疙!

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末豆拨,一起剝皮案震驚了整個(gè)濱河市,隨后出現(xiàn)的幾起案子能庆,更是在濱河造成了極大的恐慌施禾,老刑警劉巖,帶你破解...
    沈念sama閱讀 206,126評(píng)論 6 481
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件搁胆,死亡現(xiàn)場(chǎng)離奇詭異弥搞,居然都是意外死亡,警方通過(guò)查閱死者的電腦和手機(jī)渠旁,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 88,254評(píng)論 2 382
  • 文/潘曉璐 我一進(jìn)店門攀例,熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái),“玉大人顾腊,你說(shuō)我怎么就攤上這事粤铭。” “怎么了杂靶?”我有些...
    開封第一講書人閱讀 152,445評(píng)論 0 341
  • 文/不壞的土叔 我叫張陵梆惯,是天一觀的道長(zhǎng)。 經(jīng)常有香客問(wèn)我吗垮,道長(zhǎng)垛吗,這世上最難降的妖魔是什么? 我笑而不...
    開封第一講書人閱讀 55,185評(píng)論 1 278
  • 正文 為了忘掉前任烁登,我火速辦了婚禮怯屉,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘。我一直安慰自己锨络,他們只是感情好蝗敢,可當(dāng)我...
    茶點(diǎn)故事閱讀 64,178評(píng)論 5 371
  • 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著足删,像睡著了一般。 火紅的嫁衣襯著肌膚如雪锁右。 梳的紋絲不亂的頭發(fā)上失受,一...
    開封第一講書人閱讀 48,970評(píng)論 1 284
  • 那天,我揣著相機(jī)與錄音咏瑟,去河邊找鬼拂到。 笑死,一個(gè)胖子當(dāng)著我的面吹牛码泞,可吹牛的內(nèi)容都是我干的兄旬。 我是一名探鬼主播,決...
    沈念sama閱讀 38,276評(píng)論 3 399
  • 文/蒼蘭香墨 我猛地睜開眼余寥,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼领铐!你這毒婦竟也來(lái)了?” 一聲冷哼從身側(cè)響起宋舷,我...
    開封第一講書人閱讀 36,927評(píng)論 0 259
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤绪撵,失蹤者是張志新(化名)和其女友劉穎,沒(méi)想到半個(gè)月后祝蝠,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體音诈,經(jīng)...
    沈念sama閱讀 43,400評(píng)論 1 300
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 35,883評(píng)論 2 323
  • 正文 我和宋清朗相戀三年绎狭,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了细溅。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點(diǎn)故事閱讀 37,997評(píng)論 1 333
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡儡嘶,死狀恐怖喇聊,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情蹦狂,我是刑警寧澤承疲,帶...
    沈念sama閱讀 33,646評(píng)論 4 322
  • 正文 年R本政府宣布,位于F島的核電站鸥咖,受9級(jí)特大地震影響燕鸽,放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜啼辣,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 39,213評(píng)論 3 307
  • 文/蒙蒙 一啊研、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧,春花似錦党远、人聲如沸削解。這莊子的主人今日做“春日...
    開封第一講書人閱讀 30,204評(píng)論 0 19
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)氛驮。三九已至,卻和暖如春济似,著一層夾襖步出監(jiān)牢的瞬間矫废,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 31,423評(píng)論 1 260
  • 我被黑心中介騙來(lái)泰國(guó)打工砰蠢, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留蓖扑,地道東北人。 一個(gè)月前我還...
    沈念sama閱讀 45,423評(píng)論 2 352
  • 正文 我出身青樓台舱,卻偏偏與公主長(zhǎng)得像律杠,于是被迫代替她去往敵國(guó)和親。 傳聞我的和親對(duì)象是個(gè)殘疾皇子竞惋,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 42,722評(píng)論 2 345

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