群集切割和合并树状图

Question

我正在尝试翻转四群集树状图的最后两个群集。这不会改变我的树状图的含义，但是在视觉上，与以后的分析相比，这更有意义。

我试图将原始的树状图（弯角）剪切并合并为新的树状图（hc）。

这在本质上是可行的，但是hc没有dends的距离和聚类方法属性。

这些是dends的属性：

DeriveAmbiguousTypes

这就是我将窝点切割并合并到hc中的方式：

    > dends

    Call:
    hclust(d = d, method = "ward.D2")

    Cluster method   : ward.D2 
    Distance         : euclidean 
    Number of objects: 111 

但这是hc的属性：

    cluster1 <- dends[[1]]
    cluster2 <- dends[[2]][[1]]
    cluster3 <- dends[[2]][[2]][[2]]
    cluster4 <- dends[[2]][[2]][[1]]
    hc <- as.hclust(merge(merge(merge(cluster4, cluster3), cluster2), cluster1))

我意识到hc正在调用另一个函数进行dends，这可能是导致此问题的原因，但是我不太确定如何合并所有集群。

hc是否可以保留dends的属性，或者可以某种方式将它们分配给hc？ 或者，如果失败，是否存在另一种方式来翻转树突的两个末端簇的顺序？

谢谢。