我正在使用 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)
最佳答案
重点是代码 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()
但是,一个明显的问题是标签无法正确对齐。而且您无法在 ggdendrogram() 函数中执行太多操作,因为它不允许在外部设置 hjust
和 angle
属性。
因此,对于您的情况,我建议您通过复制 ggdendrogram
函数中的行来自行创建 ggplot()
。
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
函数并重新编译它。我认为这样做更容易,而且也正是您想要的:
关于r - 翻转 gg TreeMap ,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/16262371/