library(gplots)
colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "RdYlGn")))(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")
![在这里插入图片描述](https://i-blog.csdnimg.cn/blog_migrate/004d93a4b9a4631d0bf067a53acae499.png)
colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "Blues")))(100)
![在这里插入图片描述](https://i-blog.csdnimg.cn/blog_migrate/07a7d0d70d3a5229ec3c4486f543a0ea.png)
colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "BuGn")))(100)
![在这里插入图片描述](https://i-blog.csdnimg.cn/blog_migrate/f7085e05b79f89148915216b3f58f5d6.png)
colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "BuPu")))(100)
![在这里插入图片描述](https://i-blog.csdnimg.cn/blog_migrate/815efe30ce9965cb1867c060b45b8fdd.png)
colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "GnBu")))(100)
![在这里插入图片描述](https://i-blog.csdnimg.cn/blog_migrate/19dc7d73f1e0d30722063c5d1eb07887.png)
colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "Greens")))(100)
![在这里插入图片描述](https://i-blog.csdnimg.cn/blog_migrate/c353456d056d875663819f9c4394056d.png)
colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "Greys")))(100)
![在这里插入图片描述](https://i-blog.csdnimg.cn/blog_migrate/3cf8b805fa496c10cf2cb5545db998dd.png)