r - 如何调整树状图中的线条长度？

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 内部的关系无关。我的意思是，树状图没问题，但标签的值不是正确的。

谢谢