热图绘制

setwd("D:/生信学习/热图")
a<-read.csv('jh.csv',header=TRUE,row.names=1)
test<-log10(a+1)
library(pheatmap)
pheatmap(test, scale = "row", clustering_distance_row = "correlation",cluster_col=FALSE ,display_numbers = TRUE,fontsize=8, fontsize_row=6)
#clustering_distance_row = "correlation"列排列为相关性距离
cluster_col=FALSE关闭列排列  display_numbers = TRUE显示数字，fontsize=8 文字大小，

Rplot01.jpeg