与正确的组号码标签R树状分支(Label R dendrogram branches with co

我想画树状图，以便在树枝上的标签，从我的聚类分析，匹配组号。 目前，分支简单地从左边的标向右它们出现，而不是实际的组号的顺序。 这是我的当前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），并且必须返回格式化组标签“。

我希望这有帮助。

文章来源: Label R dendrogram branches with correct group number