R语言绘制不同调色板的热力图5

library(RColorBrewer)
library(pheatmap)
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)

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

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

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

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

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

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

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

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