Отображение переменных меток под сегментами дендрограммы с помощью ggdendro - PullRequest
2 голосов
/ 26 августа 2011

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

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)

enter image description here

1 Ответ

5 голосов
/ 27 августа 2011

Убедитесь, что у вас версия 0.0-7 ggdendro, а затем используйте вспомогательную функцию ggdendrogram:

library(ggplot2)
library(ggdendro)
ggdendrogram(dd.row)

enter image description here

Если вы хотите полностью контролировать, какметки отображаются, вы можете извлекать и манипулировать ими из ddata_x, используя:

ddata_x$labels
label(ddata_x)

Чтобы добавить к своему графику:

p2 + geom_text(data=label(ddata_x), aes(label=text, x=x, y=0))

Вы можете найти больше информации в виньеткеvignette("ggdendro")

...