将交互式树状图从水平旋转到垂直

Question

让我们看看这个交互式树状图：

    hc <- hclust(dist(USArrests), "ave")
    dend1 <- as.dendrogram(hc)
    plot_dendro(dend1, height = 600) %>% 
       hide_legend() %>% 
       highlight(persistent = TRUE, dynamic = TRUE)

简单快速的问题：如何旋转它使其垂直显示？ 任何帮助都超过了赞赏！非常感谢！