如何用dendextend标记层次聚类树中的一个观察值？

Question

我想创建一个相对较大的数据集(>3000个)的层次聚类树。不幸的是，由于在终端节点包含了如此多的标签，树看起来非常杂乱，并且包含了许多不必要的信息。因此，为了减少混乱，我只想标记一个感兴趣的观察结果。我已经删除了所有标签，但我不知道如何检索和添加我感兴趣的标签。

对于这个MWE，让我们假设，我想将字母k添加到我的树状图中。

library(dendextend)
library(cluster)
library(tidyverse)
set.seed(1)
a <- rnorm(20)
b <- rnorm(20)
c <- rnorm(20)

df <- as.data.frame(a, b, c)
names(df) <- letters[length(df)]

my_dist <- dist(df)
my_clust <- hclust(my_dist)
my_dend <- as.dendrogram(my_clust)
plot(color_branches(my_dend, k = 3), leaflab = "none", horiz = T)

Answer 1

您可以指定labels set函数。如果只想显示一个，则将其他字符串设置为空字符串。

LAB = rep("", nobs(my_dend))
LAB[15] = "N15"
my_dend = set(my_dend, "labels", LAB) 
plot(color_branches(my_dend, k = 3), horiz = T)

​

​