四行代碼畫出你需要的熱圖

今天給大家分享一下如何快速畫出熱圖，這裡教大家只用四行代碼畫出熱圖，多一行就算我們輸。

數據準備

我們需要準備一個差異基因表達的矩陣文件，命令為GEO.txt,如下圖：

將這個GEO.txt文件放在heatmap文件夾

四行代碼

第一行代碼：

setwd("C:\Users\scikuangren\Desktop\heatmap") #設定工作目錄

第二行代碼：

inputdata<-read.table("GEO.txt",header = T,sep=" ",row.names = 1)

#讀取文件數據

第三行代碼：

inputdata<-as.matrix(inputdata) #將數據框轉化為矩陣

第四行代碼：

heatmap(inputdata[1:20,]) #畫熱圖

熱圖展示

#############################################################

#############################################################

猜你喜歡的文章

?發福利了，近200多份優秀國自然標書免費送

?TCGA數據挖掘視頻免費送啦

?meta分析論文報告、答辯模板免費送啦

?不用編程篩選GEO差異基因視頻免費送啦

?中藥課題文獻分享

? 不懂編程的你還在瞎搞TCGA、SEER數據挖掘，這裡有一個不用任何編程的資料庫等著你挖掘呢

?如何快速學習貝葉斯網狀meta分析？

?如何做TCGA數據的單因素Cox分析？

?如何將GEO與Oncomine聯合起來

?TCGA數據挖掘課程（一對一輔導）

?Meta分析新手入門課程

?再不學習這種方法發文章，也許你會後悔

?這也許是全亞洲發SCI最快的方法

?Cytoscape與生信數據挖掘

?有沒有提高meta發表機會的方法？

?沒有對照組的試驗，可以做meta分析嗎