在以下示例中：
hc <- hclust(dist(mtcars))
hcd <- as.dendrogram((hc))
hcut4 <- cutree(hc,h=200)
class(hcut4)
plot(hcd,ylim=c(190,450))
我想添加类的标签。我可以：
hcd4 <- cut(hcd,h=200)$upper
plot(hcd4)
除了标签奇怪地移动之外，cut() 中的分支编号是否总是对应于 hcut4 中的类？在这种情况下，他们会：
hcd4cut <- cutree(hcd4, h=200)
hcd4cut
但这是一般情况吗？
使用 dendextend （标签和颜色叶树状图在 r）的例子很好
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)
有没有更好的方法来根据类绘制切割的树状图标记分支（与 cutree() 的结果一致）？
这是我需要的一个示例（在图片上编辑了类标签），但请注意，问题是我不知道标签是否实际上位于正确的分支：
