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

数据准备

我们需要准备一个差异基因表达的矩阵文件,命令为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,]) #画热图

热图展示

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

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

(0)

相关推荐