零基礎(chǔ)R語(yǔ)言繪制熱圖

第一步安裝:

install.packages("pheatmap") #安裝pheatmap包
install.packages("RColorBrewer") #安裝RColorBrewer包
library(pheatmap) #加載pheatmap包
library(RColorBrewer) #加載RColorBrewer包

這里稍微給大家介紹一下RColorBrewer包:

RColorBrewer is an R package that allows users to create colourful graphs with pre-made color palettes.

為什么要使用它,是因?yàn)樗G麗及豐富的配色深深的把小編吸引住了刁愿,這么好的東西一定要分享給大家虹蓄。他有三個(gè)配色诸狭。大家可以根據(jù)情況使用屎勘。

image
image
image

第二步讀取數(shù)據(jù):

首先我們來(lái)看一下數(shù)據(jù)的格式娃承,第一行為樣品名稱(chēng)予弧,第一列為基因名稱(chēng)矮男。

image
fitness <- read.delim("C:/Users/dell/Desktop/fitness.txt", row.names = 1) #讀取數(shù)據(jù)
id <- read.delim("C:/Users/dell/Desktop/id.tmp") #讀取需要畫(huà)圖的基因
fit.sel <- fitness[which(rownames(fitness) %in% id$ID), ] #提取需要畫(huà)圖的數(shù)據(jù)并保存 

第三步查看數(shù)據(jù)分布:

summary(fit.sel)  #查看數(shù)據(jù)最大值最小值設(shè)置scale范圍

第四步畫(huà)圖:

bk = unique(c(seq(-5, 0, length=100), seq(0, 2, length=100))) #scale范圍
col = c(colorRampPalette(rev(brewer.pal(11, "RdYlBu")))(200)) #顏色選取RdYlBu
pheatmap(fit.sel, color = col, breaks = bk, show_rownames = T, clustering_method = "ward.D2")```

最后查看結(jié)果:

image

最后總結(jié)一下常用參數(shù)的設(shè)置:

treeheight_row 設(shè)置row方向的聚類(lèi)樹(shù)高
treeheight_col 設(shè)置col方向的聚類(lèi)樹(shù)高
cellheight 表示每個(gè)單元格的高度
cellwidth 表示每個(gè)單元格的寬度
display_numbers 表示是否將數(shù)值顯示在熱圖的格子中(T/F)蟆盐。
fontsize 表示熱圖中字體顯示的大小
number_color 設(shè)置顯示內(nèi)容的顏色

pheatmap(fit.sel, cellheight=9, cellwidth=18, treeheight_row=100, treeheight_col=18, 
          color = col, breaks = bk, show_rownames = T, display_numbers=T, 
          number_color="black", fontsize=6, clustering_method = "ward.D2")

這樣運(yùn)行的結(jié)果如下:

image

歡迎關(guān)注公眾號(hào):"生物信息學(xué)"

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末承边,一起剝皮案震驚了整個(gè)濱河市,隨后出現(xiàn)的幾起案子石挂,更是在濱河造成了極大的恐慌博助,老刑警劉巖,帶你破解...
    沈念sama閱讀 222,729評(píng)論 6 517
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件痹愚,死亡現(xiàn)場(chǎng)離奇詭異富岳,居然都是意外死亡,警方通過(guò)查閱死者的電腦和手機(jī)拯腮,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 95,226評(píng)論 3 399
  • 文/潘曉璐 我一進(jìn)店門(mén)窖式,熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái),“玉大人动壤,你說(shuō)我怎么就攤上這事萝喘。” “怎么了琼懊?”我有些...
    開(kāi)封第一講書(shū)人閱讀 169,461評(píng)論 0 362
  • 文/不壞的土叔 我叫張陵阁簸,是天一觀的道長(zhǎng)。 經(jīng)常有香客問(wèn)我哼丈,道長(zhǎng)启妹,這世上最難降的妖魔是什么? 我笑而不...
    開(kāi)封第一講書(shū)人閱讀 60,135評(píng)論 1 300
  • 正文 為了忘掉前任削祈,我火速辦了婚禮翅溺,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘髓抑。我一直安慰自己咙崎,他們只是感情好,可當(dāng)我...
    茶點(diǎn)故事閱讀 69,130評(píng)論 6 398
  • 文/花漫 我一把揭開(kāi)白布吨拍。 她就那樣靜靜地躺著褪猛,像睡著了一般。 火紅的嫁衣襯著肌膚如雪羹饰。 梳的紋絲不亂的頭發(fā)上伊滋,一...
    開(kāi)封第一講書(shū)人閱讀 52,736評(píng)論 1 312
  • 那天碳却,我揣著相機(jī)與錄音,去河邊找鬼笑旺。 笑死昼浦,一個(gè)胖子當(dāng)著我的面吹牛,可吹牛的內(nèi)容都是我干的筒主。 我是一名探鬼主播关噪,決...
    沈念sama閱讀 41,179評(píng)論 3 422
  • 文/蒼蘭香墨 我猛地睜開(kāi)眼,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼乌妙!你這毒婦竟也來(lái)了使兔?” 一聲冷哼從身側(cè)響起,我...
    開(kāi)封第一講書(shū)人閱讀 40,124評(píng)論 0 277
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤藤韵,失蹤者是張志新(化名)和其女友劉穎虐沥,沒(méi)想到半個(gè)月后,有當(dāng)?shù)厝嗽跇?shù)林里發(fā)現(xiàn)了一具尸體泽艘,經(jīng)...
    沈念sama閱讀 46,657評(píng)論 1 320
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡欲险,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 38,723評(píng)論 3 342
  • 正文 我和宋清朗相戀三年,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了悉盆。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片盯荤。...
    茶點(diǎn)故事閱讀 40,872評(píng)論 1 353
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡,死狀恐怖焕盟,靈堂內(nèi)的尸體忽然破棺而出秋秤,到底是詐尸還是另有隱情,我是刑警寧澤脚翘,帶...
    沈念sama閱讀 36,533評(píng)論 5 351
  • 正文 年R本政府宣布灼卢,位于F島的核電站,受9級(jí)特大地震影響来农,放射性物質(zhì)發(fā)生泄漏鞋真。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 42,213評(píng)論 3 336
  • 文/蒙蒙 一沃于、第九天 我趴在偏房一處隱蔽的房頂上張望涩咖。 院中可真熱鬧,春花似錦繁莹、人聲如沸檩互。這莊子的主人今日做“春日...
    開(kāi)封第一講書(shū)人閱讀 32,700評(píng)論 0 25
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)闸昨。三九已至,卻和暖如春,著一層夾襖步出監(jiān)牢的瞬間饵较,已是汗流浹背拍嵌。 一陣腳步聲響...
    開(kāi)封第一講書(shū)人閱讀 33,819評(píng)論 1 274
  • 我被黑心中介騙來(lái)泰國(guó)打工, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留循诉,地道東北人横辆。 一個(gè)月前我還...
    沈念sama閱讀 49,304評(píng)論 3 379
  • 正文 我出身青樓,卻偏偏與公主長(zhǎng)得像打洼,于是被迫代替她去往敵國(guó)和親龄糊。 傳聞我的和親對(duì)象是個(gè)殘疾皇子逆粹,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 45,876評(píng)論 2 361

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