dendextend包中rect.dendrogram函数的异常行为问题求助

大家好，我最近在做一个小实验：用鸢尾花数据集展示截断高度对聚类数量的影响，并且计划用rect.dendrogram函数来可视化生成的聚类结果，但在运行代码的过程中遇到了异常情况，想请教一下各位大佬该怎么解决。

我的代码如下：

if (!require("dendextend")) {install.packages("dendextend")} else {library("dendextend")}

data("iris", package = "datasets")

Data <- list()

Data$Lab <- as.character(iris[,5])
Data$dat <- prcomp(iris[,-5])$x[,1:2]

Data$dist <- dist(Data$dat, method = "euclidean")
Data$hist <- hclust(Data$dist, method = "complete")

# plot dendrogram

hcd <- as.dendrogram(Data$hist)

cluster.height <- 6

par(pty = "m",
    mar = c(1,2,1.5,1),
    mgp = c(1,0,0),
    tck = 0.01,
    cex.axis = 0.75,
    font.main = 1)
plot(sort(hcd), 
     ylab = "Height",
     leaflab = "none")
rect.dendrogram(sort(hcd),
                h = cluster.height,
                border = "black",
                xpd = NA,
                # 原代码此处内容被截断，显示为"lo..."
                ...)

我原本预期rect.dendrogram能在树状图上根据设定的截断高度cluster.height=6画出对应聚类的矩形框，但实际运行时要么报错，要么没有得到预期的可视化效果。有没有朋友能帮我看看哪里出问题了，或者给我一些调试的建议？

备注：内容来源于stack exchange，提问作者Excelsior