是的,dendextend
软件包很容易做到这一点。我们可以在这里使用其set()
函数来达到预期的效果。
set.seed(123)
dat <- matrix(rnorm(100), nrow = 10)
library(gplots)
library(dendextend)
dd <- set(as.dendrogram(hclust(dist(dat))), "branches_lwd", 3)
heatmap.2(dat, Rowv = dd, Colv = dd)
值得研究Dendextend的所有其他出色功能。