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

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

对于这个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)

库（Dendestend）
图书馆（群集）
图书馆（tidyverse）
种子（1）
a您可以指定标签
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)

你说的“少把我的树弄得乱七八糟”是什么意思？这有点令人困惑。