library(gplots)
colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "Spectral")))(100)
Rowv <- mtcars %>% scale %>% dist %>% hclust %>% as.dendrogram %>%
set("branches_k_color", k = 4) %>% set("branches_lwd", 1.2) %>%
ladderize
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 = "BrBG")))(100)
colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "PiYG")))(100)
colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "PRGn")))(100)
colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "PuOr")))(100)
colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "RdPu")))(100)
colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "RdBu")))(100)
colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "RdGy")))(100)
colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "RdYlBu")))(100)