如何在绘图中设置颜色以进行分层聚类

Question

我有流动的数据矩阵：

> dim(data)
[1] 360  91

它的最后一列是factor（1,2,3，...，15），它表示类。 我想进行层次聚类，但是我不知道为图中不同类别的点设置不同的颜色。 我已经试过了：

# assigning color code to data
data.df = data.frame(data[,1:90])
Color<-data[,91]
data.df$Color <- as.factor(Color)

data.norm <- as.data.frame(scale(data.df[,1:90]))

# clustering: 
  dist.euclid <- dist(data.norm, method="euclidean")
  hc.euclid.single <- hclust(dist.euclid, method="single")

png("HClust, Euclidean distance, Single Linkage.png")
  plot(hc.euclid.single,  main="HClust, Euclidean distance, Single Linkage" , col=data.df$Color)
  dev.off()

Answer 1

猿包具有一些不错的树图绘制功能。 尝试这样的事情：

library(ape)
ph <- as.phylo(hc.euclid.single)    
plot(ph,  main="HClust, Euclidean distance, Single Linkage", tip.color=data.df$Color,
     direction = "downwards"))