R 用类标签绘制切割树状图

在以下示例中：

hc <- hclust(dist(mtcars))
hcd <- as.dendrogram((hc))
hcut4 <- cutree(hc,h=200)
class(hcut4)
plot(hcd,ylim=c(190,450))

是否有更好的方法绘制切割树状图标记分支 根据类别（与cutree（）的结果一致）

这是我需要的一个例子（图片上编辑的类标签）， 但请注意，问题是我不知道标签是否位于正确的分支：

---

您是否可以添加一个图形（使用paint进行编辑）来说明您感兴趣的输出？完成。请注意，问题是我不知道标签是否实际位于正确的分支：嗯，为什么不使用Dendestend的

prune

函数呢？因为我想绘制由hcut（）创建的类的标签。实际上，我应该在图中添加的正确顺序是4 3 2 1。由于

colorCodes中的颜色，我知道这一点，但显然这不是一般的解决方案：绘制整个树的颜色代码以识别分支的类是没有意义的。此外，我不明白为什么这样一个简单的操作需要另一个包：如果我们用hcut（）切割一棵树，很明显，在许多情况下，用户会希望用他们各自的类标记的分支可视化切割的树。换句话说，类似于plot（hc，h=200）
hcd4 <- cut(hcd,h=200)$upper
plot(hcd4)

hcd4cut <- cutree(hcd4, h=200)
hcd4cut

library(dendextend)
colorCodes <- c("red","green","blue","cyan")
labels_colors(hcd) <- colorCodes[hcut4][order.dendrogram(hcd)]
plot(hcd)

hcd <- as.dendrogram((hc))
hcd4 <- cut(hcd,h=200)$upper

hcd4cut <- cutree(hcd4, h=200)
labels_colors(hcd4) <- colorCodes[hcd4cut][order.dendrogram(hcd4)]
plot(hcd4)

plot(hcd4,labels=hcd4cut)