r - 如何创建带有彩色分支的树状图？

我想在R中创建一个有色分支的树状图，如下图所示。

到目前为止，我已经使用以下命令来创建标准树状图:

d <- dist(as.matrix(data[,29]))   # find distance matrix
 hc <- hclust(d)                # apply hirarchical clustering
 plot(hc,labels=data[,1], main="", xlab="") # plot the dendrogram

我应该如何修改此代码以获得所需的结果？

在此先感谢您的帮助。

最佳答案

您可以使用针对以下任务的dendextend软件包:

# install the package:
if (!require('dendextend')) install.packages('dendextend'); library('dendextend')

## Example:
dend <- as.dendrogram(hclust(dist(USArrests), "ave"))
d1=color_branches(dend,k=5, col = c(3,1,1,4,1))
plot(d1) # selective coloring of branches :)
d2=color_branches(d1,k=5) # auto-coloring 5 clusters of branches.
plot(d2)
# More examples are in ?color_branches

在以下URL的“用法”部分中，您可以在该包的演示文稿和小插图中看到许多示例:https://github.com/talgalili/dendextend