在 ggplot 中使用 ggdendro 在 r 中添加标签到树状图

Question

如何为ggdendro图添加标签？我从阅读dendro_data中意识到我应该使用调用"标签"，但找不到实际实现的示例。任何人都可以演示如何在下面的示例中添加叶标签。谢谢

require(ggplot2)
hc <- hclust(dist(USArrests), "ave")
dhc <- as.dendrogram(hc,hang=0.1)
ddata <- dendro_data(dhc, type="rectangle")
ggplot(segment(ddata)) + geom_segment(aes(x=x, y=y, xend=xend, yend=yend))

Answer 1

您可以使用

label(ddata)生成的数据框添加叶标签，并调用geom_text()。我还使用scale_y_continuous扩展了绘图范围，因此标签不会被截断。

p <- ggplot(segment(ddata)) + geom_segment(aes(x=x, y=y, xend=xend, yend=yend))
p + geom_text(aes(x = x, y = y, label = label, angle = -90, hjust = 0), data= label(ddata)) +
  scale_y_continuous(expand = c(0.3, 0))

但是，最好使用 ggdendrogram()，除非您不喜欢这些标签的显示方式：

ggdendrogram(ddata)

Answer 2

通过

应用以下内容，我能够在 ggdendro 中绘制悬挂的树状图，而无需大量工作。您只需要构建一个还包含叶位置的标签数据帧。这是通过过滤掉点以仅取整数来完成的。

# tree is a an extracted dendro_data() object.
label_data <- bind_cols(filter(segment(tree), x == xend & x%%1 == 0), label(tree))
ggplot() + 
geom_segment(data=segment(tree), aes(x=x, y=y, xend=xend, yend=yend)) +
geom_text(data=label_data, aes(x=xend, y=yend, label=label, hjust=0, color = LT), size=2) +
coord_flip() + 
scale_y_reverse(expand=c(0.2, 0)) +
theme_bw() +
theme(panel.border = element_blank(),
      panel.grid.major = element_blank(), 
      panel.grid.minor = element_blank(),
      axis.line = element_blank(),
      axis.title = element_blank(),
      axis.text = element_blank(),
      axis.ticks = element_blank(),
      legend.position = "None")