2

我正在使用 ggdendrogram 来绘制树状图，但我希望在左侧添加标签以使图表更直观。我该怎么做呢？谢谢！！！

library(ggplot2)
library(ggdendro)

### Data
countries <- c("UK","AU","SA","CH")
distmatrix <- matrix(c(0.00, 0.16, 1.01, 0.97, 0.16, 0.00, 0.84, 0.79, 1.01, 0.84, 0.00, 1.49, 0.97, 0.79, 1.49, 0.00),
nrow=4,dimnames=list(countries, countries))

### Cluster
hc = hclust(as.dist(distmatrix), method = "ward")

### Plot
ggdendrogram(hc, rotate=TRUE, theme_dendro=FALSE)
4

1 回答 1

4

关键是代码ggdendrogram何时rotate=TRUE执行此操作：

if (rotate) {
    p <- p + coord_flip()
    p <- p + scale_y_reverse(expand = c(0.2, 0))
}

但你不希望这样scale_y_reverse(.)做。所以，一种方法是让你coord_flip()自己做。

ggdendrogram(hc, rotate=FALSE, theme_dendro=FALSE) + coord_flip()

但是，一个明显的问题是，这将labels不合理。而且你不能在ggdendrogram()函数内做很多事情，因为它不允许在外部设置hjust和angle属性。

因此，对于您的情况，我建议您ggplot()通过从ggdendrogram函数内部复制行来创建自己。

data <- dendro_data(hc)
p <- ggplot() + geom_segment(data = segment(data), 
              aes_string(x = "x", y = "y", xend = "xend", yend = "yend"))
p <- p + geom_text(data = label(data), 
              aes_string(x = "x", y = "y", label = "label"), hjust = 1, angle = 0)
p + scale_y_continuous(expand=c(0.2, 0)) + coord_flip()

这给出了：

在此处输入图像描述

另一种方法是让您根据需要修改ggdendrogram函数并重新编译它。我认为这样做更容易，并且也是您想要的：

于 2013-04-28T11:58:24.007 回答