在R USArrests数据集中剪切树状图不会返回正确的树状图

Question

我一直在网上寻找教程，但结果不正确

d <- dist(USArrests, method = "euclidean") # distance matrix
usarrests_hi_cluster <- hclust(d, method="complete") 
plot(usarrests_hi_cluster)

这很好，我得到了整个树状图

但当我做以下操作以在一定高度修剪时

my_dend<-cutree(usarrests_hi_cluster, h = 150)
print(my_dend)

只获取带有数字的状态列表

Alabama         Alaska        Arizona       Arkansas 
1              1              1              2 
California       Colorado    Connecticut       Delaware 
1              2              3              1 
Florida        Georgia         Hawaii          Idaho 
1              2              3              3 
Illinois        Indiana           Iowa         Kansas 
1              3              3              3 
Kentucky      Louisiana          Maine       Maryland 
3              1              3              1

我想在一定的高度切割树状图，得到3个簇，并绘制

我试着回答这个问题

(b( 将树状图剪成三个不同的簇。哪些状态属于哪些集群？

Answer 1

对于同一个问题，请参阅此问答，但绘制树的顶部：仅将hclust绘制到切割的簇，而不是每个叶

你要找的是绘制较低的分支。分支级别作为列表存储在"$下部"；数据结构的变量。

hc <- hclust(dist(USArrests))
#cut tree
dend2 <- cut(dend1, h = 150)
#cycle through the lower list and plot
lapply(dend2$lower, function(x){plot(x)})

回答部分(b(：print(my_dend)的输出显示每个状态属于哪个分支。