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

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

# order for rows
Rowv  <- mtcars %>% scale %>% dist %>% hclust %>% as.dendrogram %>%
  set("branches_k_color", k = 4) %>% set("branches_lwd", 1.2) %>%
  ladderize

# Order for columns
Colv  <- mtcars %>% scale %>% t %>% dist %>% hclust %>% as.dendrogram %>%
  set("branches_k_color", k = 2, value = c("orange", "blue")) %>%
  set("branches_lwd", 1.2) %>%
  ladderize

heatmap.2(scale(mtcars), scale = "none", col = colormap,
          Rowv = Rowv, Colv = Colv,
          trace = "none", density.info = "none")

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

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

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

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

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

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