用ggdendro在树形图的片段下显示变量标签

时间:2011-08-26 06:55:22

标签: r ggplot2 ggdendro

我的问题与Andrie的answer问题有关。我的问题是,是否可以在树形图的相应部分下显示变量标签和汽车标签?

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 个答案:

答案 0 :(得分:5)

确保您拥有ggdendro版本0.0-7,然后使用便捷功能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")