绘制热图

R中有多种可以绘制热图的包，这里我学习使用pheatmap包

library(RColorBrewer)

library(pheatmap)

df<-scale(mtcars)

colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "RdYlBu")))(100)

breaks = seq(min(unlist(c(df))), max(unlist(c(df))), length.out=100)

pheatmap(df, color=colormap, breaks=breaks,border_color="black",

cutree_col = 2,cutree_row = 4)