r - 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()独自のラベルを使用および設定できます。HCD1Dataobject partslabelsと columnには樹状図と同じラベルが配置されています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)