【傻瓜美图】pheatmap

数据整理为下面这种格式

数据格式

pheatmap::pheatmap(t(scale(t(test))),
                   border_color = NA,
                   cluster_cols = F,
                   clustering_method = 'ward.D2',
                   color = scales::alpha(rev(colorRampPalette(RColorBrewer::brewer.pal(8,"RdBu"),alpha=T,bias=1)(256)),alpha = 1),
                   angle_col = '315',
                   show_rownames = F,
                   annotation_colors = cols,
                   breaks = unique(c(seq(-1.5,1.5, length=256))),
                   main = 'All.DEG.TPM',
                   legend_breaks = c(-1.5,0,1.5),
                   fontsize = 10)

image.png