如何调整树形图中的线长？

Question

在R中使用此代码，

library("dendextend")
library("dendextendRcpp")

dist2 <- read.csv("distanceMatrix.csv",sep=";",header=TRUE)
mat <- as.matrix(dist2)

# using piping to get the dend
dend <- dist2 %>% dist %>% hclust %>% as.dendrogram %>% set("labels", colnames(mat))


foo <- function(k){
svg(filename = "dendrogram_newest.svg",width = 25,height = 14)
# plot + color the dend's branches before, based on k clusters:
dend %>% color_branches(k) %>% plot()
# add horiz line:
abline(h = heights_per_k.dendrogram(dend)[k], lwd = 2, lty = 2, col = "purple")
dev.off()}

foo(6)

我明白了：

那么，如何缩短这些线条。这种方式几乎不可读。

是的，我的标签就像我的distanceMatrix.csv的第一行一样。此顺序与distanceMatrix内部的关系无关。我的意思是，树形图是可以的，但标签的值不是正确的。

由于