8

给定一个树状图 y，它在高度值 z 下有 k 个簇，我想知道：

使用多少个观测值来形成簇数 (k)？

以下是一些可重现的代码和图片来说明问题：

#Necessary packages to reproduce the code
library(ggplot2)
library(cluster)

#Example data
x = c(6.2, 2.3, 0, 1.54, 2.17, 6.11, 0.3, 1.39, 
  5.14, 12.52, 12.57, 7.13, 13.71, 11.42, 
  8.13, 8.86, 9.97, 10, 8.23, 12.4, 9.51, 
  20.56, 17.78, 14.91, 19.17, 17.48, 17.44, 
  21.32, 
  21.24)

y = c(7.89, 7.63, 5.29, 8.38, 8.37, 10.5, 21.5,
  16.65, 23.76, 1.77, 1.8, 10.49, 14.01, 
  10.36, 10.85, 15.02, 14.91, 14.94, 10.76,
  18.58, 23.12, 0, 13.59, 9.68, 17.32, 17.85,
  17.79, 4.13, 4.05)

df = data.frame(cbind(x,y))
obs = NROW(df[,1]) #number of data observations
obs
[1] 29

#Clustering
agnes=agnes(df, metric="euclidean", stand=F, method="average")
k_number=sum(agnes$height < 1) #number of clusters under dendrogram's height value of 1
k_number
[1] 7 # k_number resulted in 7 groups/clusters

plot(agnes,which.plots=2)

红色的注释是在 R 之外绘制的，它们表示在高度 1 下分组的 7 个集群。 在此处输入图像描述

ggplot(df,aes(x,y)) + xlim(0,22) + ylim(0,25) +
  geom_point() +
  geom_text(aes(label=row.names(df)),hjust=0.5, vjust=-1.5, cex=5)

在此处输入图像描述

好的，有 7 个集群来自 13 个观测值。

我想找回数字 13。

我试图阅读很多文档，但由于我对 R 和集群技术不太熟悉，我一直在努力寻找这一点。谢了。

4

1 回答 1

6

这应该可以解决问题

# convert to hclust object and obtain cluster assignments for the observations
R> cl <- cutree(as.hclust(agnes), h=1)  
R> cl
 [1]  1  2  3  2  2  4  5  6  7  8  8  9 10 11 12 13 14 14 12 15 16 17 18 19 20
[26] 21 21 22 22
# find non-unique assignments
R> res <- table(cl) 
R> res[res > 1]
cl
 2  8 12 14 21 22 
 3  2  2  2  2  2 
R> sum(res[res > 1])
[1] 13

更新：截止 h=2

R> cl <- cutree(as.hclust(agnes), h=2) 
R> cl
 [1]  1  2  3  2  2  4  5  6  7  8  8  4  9 10  4 11 11 11  4 12 13 14 15 16 17
[26] 17 17 18 18
R> res <- table(cl) 
R> res[res > 1]
cl
 2  4  8 11 17 18 
 3  4  2  3  3  2 
R> sum(res[res > 1])
[1] 17
于 2013-10-24T19:06:38.057 回答