服务热线
178 0020 3020
install.packages("pheatmap")
library(pheatmap)
map1<-read.csv(file.choose())
str(map1)
as.data.frame(as.character(map1[,1]))
data1<-map1[,c(2,3,4,5)] # 导入数据
rownames(data1)<-map1[,1] # 设行
pheatmap(main ="R2-39", data1,scale = "column", cluster_rows = TRUE,cluster_cols = TRUE, display_numbers=T)
附件