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