Отображение переменных меток под сегментами дендрограммы с помощью ggdendro

Question

Мой вопрос связан с ответом Андри на мой предыдущий вопрос. Мой вопрос заключается в том, возможно ли отображать метки переменных и метки автомобилей под соответствующими сегментами дендрограммы?

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)

Answer 1

Убедитесь, что у вас версия 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")