如何 label 僅在具有 dendextend 的層次聚類樹中進行一次觀察？

Question

我想創建一個相對較大的數據集（> 3000 obs）的層次聚類樹。 不幸的是，通過在終端節點包含如此多的標簽，樹看起來非常混亂並且包含許多不必要的信息。 因此，為了減少混亂，我只想對 label 進行一項感興趣的觀察。 我已刪除所有標簽，但我不知道如何檢索和添加我感興趣的 label。

對於這個 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

您可以指定標簽set function。 如果您只想顯示一個，請將其他設置為 null 字符串。

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