四行代码画出你需要的热图
数据准备
我们需要准备一个差异基因表达的矩阵文件,命令为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)