私の質問は、私の以前の質問に対するAndrie の回答に関連しています。私の質問は、デンドログラムの対応するセグメントの下に変数ラベルと車のラベルを表示できるかどうかです。
library(ggplot2)
library(ggdendro)
data(mtcars)
x <- as.matrix(scale(mtcars))
dd.row <- as.dendrogram(hclust(dist(t(x))))
ddata_x <- dendro_data(dd.row)
p2 <- ggplot(segment(ddata_x)) +
geom_segment(aes(x=x0, y=y0, xend=x1, yend=y1))
print(p2)
のバージョンが 0.0-7 であることを確認してからggdendro、便利な関数を使用してggdendrogramください。
library(ggplot2)
library(ggdendro)
ggdendrogram(dd.row)
ラベルの表示方法を完全に制御したい場合は、次のddata_xいずれかを使用してこれらを抽出および操作できます。
ddata_x$labels
label(ddata_x)
プロットに追加するには:
p2 + geom_text(data=label(ddata_x), aes(label=text, x=x, y=0))
詳細については、ビネットで確認できます。vignette("ggdendro")