用正确的组号标记R树状图分支

Question

我试图绘制树状图，以使分支上的标签与我的聚类分析中的组号匹配。 当前，分支只是按照出现的顺序从左到右进行标记，而不是实际的组号。 这是我当前的R代码和生成的树状图：

dst <- dist(Model_Results,method="binary") 
hca <- hclust(dst)
clust <- cutree(hca,k=40)
dend <-as.dendrogram(hca)
library(dendextend)
dend1 <- color_branches(dend, k = 40, groupLabels = TRUE)
plot(dend1)

如何更改标签以匹配我的实际组号？

Answer 1

我想我终于设法弄清楚了...

dst <- dist(Model_Results,method="binary") 
hca <- hclust(dst)
clust <- cutree(hca,k=40)
dend <-as.dendrogram(hca)
library(dendextend)
clust.cutree <- dendextend:::cutree(dend, k=40, order_clusters_as_data = FALSE)
idx <- order(as.numeric(names(clust.cutree)))
clust.cutree <- clust.cutree[idx]
tbl <- table(clust, clust.cutree)
lbls <- apply(tbl,2,which.max)
dend1 <- color_branches(dend, k = 40, groupLabels = lbls)
plot(dend1)

Answer 2

直接从这里的文档中获得有关color_branches()函数的信息：

“如果groupLabels=TRUE则将数字组标签添加到每个群集。 如果提供了矢量，则这些条目将用作组标签 。如果提供了函数，则将传递组的数字矢量（例如1 ：5），并且必须返回格式化的组标签。”

我希望这有帮助。