将树状图中的标签聚类

Question

我想知道-有没有办法将簇的标签添加到树状图中。 看简单的例子：

hc = hclust(dist(mtcars))
plot(hc, hang = -1)
rect.hclust(hc, k = 3, border = "red")

所需的输出应如下所示：

感谢您的任何建议！

Answer 1

您需要获取放置坐标的位置才能放置群集的标签：

第一轴：
在调用rect.hclust ，您还可以分配结果，以便可以使用它来找到簇的开始（第一个簇从1开始，第二个簇从1开始， rect.hclust上第一个簇的长度， rect.hclust 。

rh <- rect.hclust(hc, k = 3, border = "red")
beg_clus <- head(cumsum(c(1, lengths(rh))), -1)

第二轴：
您只想位于红色矩形上方，红色矩形位于具有k-1个簇的高度和具有k个簇的高度的中间。 假设您的目标距离是4/5，而不是1/2：

y_clus <- weighted.mean(rev(hc$height)[2:3], c(4, 1))

贴标签：

text(x=beg_clus, y=y_clus, col="red", labels=LETTERS[1:3], font=2)

Answer 2

添加文本标签的替代方法是在处理群集标签的mjcgraphics软件包中。 参见https://github.com/drmjc/mjcgraphics和https://rdrr.io/github/drmjc/mjcgraphics/man/rect.hclust.labels.html

rect.hclust.labels(hc, k=3, border = 1 ) # adds labels to clusters