使用 ggdendro 在树状图段下显示变量标签

【问题标题】：Showing variable labels under the segments of dendrogram with ggdendro使用 ggdendro 在树状图段下显示变量标签
【发布时间】：2011-11-04 06:57:30
【问题描述】：

我的问题与 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)

【问题讨论】：

如果您将代码简化为 minimal 示例，我将看看。例如，如果您的问题是如何在树状图的底部添加标签，则简化代码以显示单个树状图。
@Andrie ：我用最少的代码更新了这个问题。谢谢

标签： r ggplot2 ggdendro

【解决方案1】：

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

【讨论】：