ggdendrogram用于大量节点

Question

我正在尝试使用dendrogram绘制一个包含大量节点的ggdendrogram并且它非常慢（例如，与dendextend相比）：

set.seed(1)
mat <- matrix(rnorm(100*10),nrow=100,ncol=10)
dend <- as.dendrogram(hclust(dist(mat)))


require(ggdendro)
require(dendextend)
require(microbenchmark)
> microbenchmark(ggdendrogram(dend,rotate=T,labels=F,size=4,theme_dendro=F))
Unit: milliseconds
                                                                   expr      min       lq     mean  median       uq      max neval
 ggdendrogram(dend, rotate = T, labels = F, size = 4, theme_dendro = F) 394.3181 409.3591 431.0981 412.515 416.4568 1346.844   100

> microbenchmark(dend %>% plot(horiz = TRUE))
Unit: milliseconds
                        expr      min     lq     mean   median       uq      max neval
 dend %>% plot(horiz = TRUE) 138.7253 207.92 214.5278 208.8807 211.2602 640.0316   100

有没有办法加快速度，使其与dendextend的情节速度相媲美？

另外，我是指定rotate=T还是

ggdendrogram(dend,rotate=F,labels=F,size=4,theme_dendro=F)+coord_flip()

我的树状图指向左边：

但我希望它指向正确的方向。知道如何让它工作吗？

Answer 1

在此阶段，dendextend软件包将替换ggdendro。

set.seed(1)
mat <- matrix(rnorm(100*10),nrow=100,ncol=10)
dend <- as.dendrogram(hclust(dist(mat)))
require(dendextend)
gg_dend <- as.ggdend(dend)
require(ggplot2)
ggplot(gg_dend, labels = F)+coord_flip()+ scale_y_reverse()