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

#-----------------------------------图7-4-1 热力图：方法3------------------------------------------------
library(RColorBrewer)
library(pheatmap)
colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "Dark2")))(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 = "Accent")))(100)

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

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

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

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

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

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

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

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

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

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