摘要：代码笔记 library(psych)library(pheatmap) #以上导入包S9 <- read.csv(file.choose())rownames(S9)=S9[,1] #将第一列转为列名S9 <- S9[,2:11] #删除第一列S9 <- data.matrix(S9) #将dat 阅读全文