R 热图

安装包：  install.packages("pheatmap")

导入包：library(pheatmap)

读入数据：data<- read.table("filename",header = T, row.names = 1,quote = "")

画图：pheatmap::pheatmap(data)

code:

library(pheatmap)

setwd("G:/jiaoji")  #工作路径

data<- read.table("5",header = T, row.names = 1,quote = "")

pheatmap::pheatmap(data)