將樹狀圖中的標簽聚類

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