1

如何将标签添加到 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))
4

2 回答 2

2

您可以通过调用来添加叶子标签，geom_text()使用由 生成的数据框label(ddata)。我还使用这样扩展了绘图范围，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)
于 2012-09-28T03:02:28.627 回答
0

通过应用以下内容，我无需大量工作即可在 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")
于 2015-09-28T20:39:53.347 回答