R15

library(pheatmap)
library(argparse)

parser = ArgumentParser()
parser$add_argument("--fpkm", help = "fpkm file with sep='\t', genes as rows and samples as cols; gene_id in 1st col", required = TRUE)
parser$add_argument("--type", help = "the scale type", default = 'row')
parser$add_argument("--show", help = "show rownames", default = 'F')
parser$add_argument("--crow", help = "cluster row", default = 'TRUE')
parser$add_argument("--ccol", help = "cluster column", default = 'TRUE')
args <- parser$parse_args()

data = args$fpkm
type = args$type
## 不能對繪圖參數(shù)傳參？
#show = args$show
#crow = args$crow
#ccol = args$ccol

data <- read.table(data, header = T, sep = "\t", row.names = 1, check.names = FALSE)
## 對數(shù)轉(zhuǎn)換
data <- log10(data + 1)
data
## 去除全部是0的行
data <- data[which(rowSums(data) > 0),]
pheatmap(data, scale = type, col = colorRampPalette(c("green4","black","red4"))(75), show_rownames = T, cluster_row = F, cluster_cols = F, filename = "heatmap.pdf")
pheatmap(data, scale = type, col = colorRampPalette(c("green4","black","red4"))(75), show_rownames = T, cluster_row = F, cluster_cols = F, filename = "heatmap.png")
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 人面猴
    序言：七十年代末，一起剝皮案震驚了整個(gè)濱河市刺啦，隨后出現(xiàn)的幾起案子放坏，更是在濱河造成了極大的恐慌堂鲤，老刑警劉巖亿傅，帶你破解...
    沈念sama閱讀 217,277評論 6贊 503
  • 死咒
    序言：濱河連續(xù)發(fā)生了三起死亡事件，死亡現(xiàn)場離奇詭異瘟栖，居然都是意外死亡葵擎，警方通過查閱死者的電腦和手機(jī)，發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 92,689評論 3贊 393
  • 救了他兩次的神仙讓他今天三更去死
    文/潘曉璐 我一進(jìn)店門半哟，熙熙樓的掌柜王于貴愁眉苦臉地迎上來酬滤，“玉大人，你說我怎么就攤上這事寓涨∶粑睿” “怎么了？”我有些...
    開封第一講書人閱讀 163,624評論 0贊 353
  • 道士緝兇錄：失蹤的賣姜人
    文/不壞的土叔 我叫張陵缅茉，是天一觀的道長。 經(jīng)常有香客問我男摧，道長蔬墩，這世上最難降的妖魔是什么？ 我笑而不...
    開封第一講書人閱讀 58,356評論 1贊 293
  • ?港島之戀（遺憾婚禮）
    正文 為了忘掉前任耗拓，我火速辦了婚禮拇颅，結(jié)果婚禮上，老公的妹妹穿的比我還像新娘乔询。我一直安慰自己樟插，他們只是感情好，可當(dāng)我...
    茶點(diǎn)故事閱讀 67,402評論 6贊 392
  • 惡毒庶女頂嫁案：這布局不是一般人想出來的
    文/花漫 我一把揭開白布竿刁。 她就那樣靜靜地躺著黄锤，像睡著了一般。 火紅的嫁衣襯著肌膚如雪食拜。 梳的紋絲不亂的頭發(fā)上鸵熟，一...
    開封第一講書人閱讀 51,292評論 1贊 301
  • 城市分裂傳說
    那天，我揣著相機(jī)與錄音负甸，去河邊找鬼流强。 笑死，一個(gè)胖子當(dāng)著我的面吹牛呻待，可吹牛的內(nèi)容都是我干的打月。 我是一名探鬼主播，決...
    沈念sama閱讀 40,135評論 3贊 418
  • 雙鴛鴦連環(huán)套：你想象不到人心有多黑
    文/蒼蘭香墨 我猛地睜開眼蚕捉，長吁一口氣：“原來是場噩夢啊……” “哼奏篙！你這毒婦竟也來了？” 一聲冷哼從身側(cè)響起鱼冀，我...
    開封第一講書人閱讀 38,992評論 0贊 275
  • 萬榮殺人案實(shí)錄
    序言：老撾萬榮一對情侶失蹤报破，失蹤者是張志新（化名）和其女友劉穎悠就，沒想到半個(gè)月后，有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體充易，經(jīng)...
    沈念sama閱讀 45,429評論 1贊 314
  • ?護(hù)林員之死
    正文 獨(dú)居荒郊野嶺守林人離奇死亡梗脾，尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 37,636評論 3贊 334
  • ?白月光啟示錄
    正文 我和宋清朗相戀三年，在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了盹靴。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片炸茧。...
    茶點(diǎn)故事閱讀 39,785評論 1贊 348
  • 活死人
    序言：一個(gè)原本活蹦亂跳的男人離奇死亡，死狀恐怖稿静，靈堂內(nèi)的尸體忽然破棺而出梭冠，到底是詐尸還是另有隱情，我是刑警寧澤改备，帶...
    沈念sama閱讀 35,492評論 5贊 345
  • ?日本核電站爆炸內(nèi)幕
    正文 年R本政府宣布控漠，位于F島的核電站，受9級特大地震影響悬钳，放射性物質(zhì)發(fā)生泄漏盐捷。R本人自食惡果不足惜，卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,092評論 3贊 328
  • 男人毒藥：我在死后第九天來索命
    文/蒙蒙 一默勾、第九天 我趴在偏房一處隱蔽的房頂上張望碉渡。 院中可真熱鬧，春花似錦母剥、人聲如沸滞诺。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,723評論 0贊 22
  • 一樁弒父案环疼，背后竟有這般陰謀
    文/蒼蘭香墨 我抬頭看了看天上的太陽习霹。三九已至，卻和暖如春炫隶，著一層夾襖步出監(jiān)牢的瞬間序愚，已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 32,858評論 1贊 269
  • 情欲美人皮
    我被黑心中介騙來泰國打工等限， 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留爸吮，地道東北人。 一個(gè)月前我還...
    沈念sama閱讀 47,891評論 2贊 370
  • 代替公主和親
    正文 我出身青樓望门，卻偏偏與公主長得像形娇，于是被迫代替她去往敵國和親。 傳聞我的和親對象是個(gè)殘疾皇子筹误，可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 44,713評論 2贊 354

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