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

#------------------------------------------图7-4-1 热力图 方法2-----------------------------------------------------
library(gplots)
colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "Set1")))(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 = "Set2")))(100)

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

colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "Dark2")))(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)