是否可以在树形图中压缩边缘？

Question

我正在尝试在R中可视化树形图但标签会被裁剪，因为树边缘占据了大部分空间。

这是一个最小的例子：

hc <- hclust(dist(USArrests), "ave")
clusDendro <- as.dendrogram(hc)
clusDendro <- dendrapply(clusDendro, colLab)
plot(clusDendro, horiz = T)

有没有办法压缩边缘的长度？