r - 从 pvclust 中提取重要的子树/集群，保持其层次结构

Question

以下 R 代码通过波士顿数据集中的多尺度引导重采样生成层次聚类。

library(pvclust)
library(MASS)
data(Boston)
boston.pv <- pvclust(Boston)
boston.pp <- pvrect(boston.pv)
clusters <- pvpick(boston.pv)

最后，clusters$clusters列出来自重要集群的元素：

$clusters[[1]]
[1] "crim" "indus" "nox" "age" "rad" "tax"    
[7] "ptratio" "lstat"  

$clusters[[2]]
[1] "zn" "rm" "dis" "black" "medv" 

有没有办法提取这些相同的项目而不丢掉它们的层次结构？例如保持他们的边缘顺序，如：

 $clusters[[1]]
[1] "rad" "tax" "indux" "nox" "age" "lstat"    
[7] "crim" "pratio"  

$clusters[[2]]
[1] "rm" "medv" "zn" "dis" "black" 

或者类似的东西？提前致谢。