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")
![在这里插入图片描述](https://img-blog.csdnimg.cn/cc4375956117481999cc62a20f6baf53.png)
colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "BrBG")))(100)
![在这里插入图片描述](https://img-blog.csdnimg.cn/733a8ea8f107402492b376fb522722e7.png)
colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "PiYG")))(100)
![在这里插入图片描述](https://img-blog.csdnimg.cn/3fa9d0d4e02847a89f9f62e9521d6e66.png)
colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "PRGn")))(100)
![在这里插入图片描述](https://img-blog.csdnimg.cn/fe6aef5dd34245eaa82b5e969288df2f.png)
colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "PuOr")))(100)
![在这里插入图片描述](https://img-blog.csdnimg.cn/ad91933836b544ebade0a43631f170e0.png)
colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "RdPu")))(100)
![在这里插入图片描述](https://img-blog.csdnimg.cn/ff7c1a4ce76a4a19aab36af5da85daee.png)
colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "RdBu")))(100)
![在这里插入图片描述](https://img-blog.csdnimg.cn/88da1ca9e2e442dbafcd0c6336a632fe.png)
colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "RdGy")))(100)
![在这里插入图片描述](https://img-blog.csdnimg.cn/fdfb532ef81246788d8dd329b923f5ab.png)
colormap <- colorRampPalette(rev(brewer.pal(n = 7, name = "RdYlBu")))(100)
![在这里插入图片描述](https://img-blog.csdnimg.cn/38311474697648c6a8c58acfa2343672.png)