Создание дендрограммы с помощью ggdendrogram

Question

Я делаю кластерный анализ и создаю дендрограмму. я использовал ggdendrogram пакет и хотите использовать его вывод в ggplot2, Интересно, как получить те же самые X-метки, что и листовые? Спасибо

D1 <- as.dist(
  matrix(
    data=
    c(   0,  9, 3, 6, 11
      ,  9,  0, 7, 5, 10
      ,  3,  7, 0, 9,  2
      ,  6,  5, 9, 0,  8
      , 11, 10, 2, 8,  0)
    , nrow= 5
    , ncol = 5
    , byrow=TRUE
    ))

HCD1 <- hclust(d = D1, method="single", members=NULL)
library(ggdendro)
ggdendrogram(HCD1, theme_dendro=FALSE)

HCD1Data <- dendro_data(as.dendrogram(HCD1))

library(ggplot2)
p1 <-
    ggplot(data = HCD1Data$segments) +
    geom_segment(aes(x=x, y=y, xend=xend, yend=yend))
print(p1)

Answer 1

Ты можешь использовать scale_x_discrete() и установить свои собственные ярлыки. В объекте расположены те же метки, что и в дендрограмме. HCD1Data части labels и колонка label,

HCD1Data$labels
  x y label
1 1 0     1
2 2 0     3
3 3 0     5
4 4 0     2
5 5 0     4

p1+scale_x_discrete(labels=HCD1Data$labels$label)