【原】四行代码画出你需要的热图

数据准备

我们需要准备一个差异基因表达的矩阵文件，命令为GEO.txt,如下图：

将这个GEO.txt文件放在heatmap文件夹

四行代码

第一行代码：

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

第二行代码：

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

#读取文件数据

第三行代码：

inputdata<-as.matrix(inputdata) #将数据框转化为矩阵

第四行代码：

heatmap(inputdata[1:20,]) #画热图

热图展示

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

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