使用现有列的树状图的颜色分支

我有一个正在尝试聚类的数据框。我在用hclust现在。在我的数据框中，有一个FLAG我想为树状图着色的列。通过生成的图片，我试图找出各种之间的相似之处FLAG类别。我的数据框看起来像这样：

FLAG    ColA    ColB    ColC    ColD

我正在聚集colA, colB, colC and colD。我想将它们聚类并根据它们着色FLAG类别。例如 - 如果 1 则颜色为红色，如果 0 则颜色为蓝色（我只有两个类别）。现在我正在使用集群绘图的普通版本。

hc<-hclust(dist(data[2:5]),method='complete')
plot(hc)

在这方面的任何帮助将不胜感激。

如果您想根据某个变量为树状图的分​​支着色，那么以下代码（主要取自 dendrapply 函数的帮助）应该会给出所需的结果：

x<-1:100
dim(x)<-c(10,10)
groups<-sample(c("red","blue"), 10, replace=TRUE)

x.clust<-as.dendrogram(hclust(dist(x)))

local({
  colLab <<- function(n) {
    if(is.leaf(n)) {
      a <- attributes(n)
      i <<- i+1
      attr(n, "edgePar") <-
        c(a$nodePar, list(col = mycols[i], lab.font= i%%3))
    }
    n
  }
  mycols <- groups
  i <- 0
})

x.clust.dend <- dendrapply(x.clust, colLab)
plot(x.clust.dend)