Да, пакет 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.