我可以对 R 中的方法使用一些建议来确定最佳集群数量,然后用不同的统计标准描述集群。我是 R 新手,对聚类分析的统计基础有基本的了解。
确定集群数量的方法:在文献中,一种常用的方法是所谓的“肘部标准”,它比较不同集群解决方案的平方差之和 (SSD)。因此,SSD 是针对分析中的集群数量绘制的,并且通过识别图中的“弯头”来确定最佳集群数量(例如,此处:https://en.wikipedia.org/wiki/File:DataClustering_ElbowCriterion。 JPG ) 这种方法是获得主观印象的第一种方法。因此我想在 R 中实现它。互联网上关于这方面的信息很少。这里有一个很好的例子:http: //www.mattpeeples.net/kmeans.html作者还做了一个有趣的迭代方法,以查看在多次重复聚类过程后肘部是否稳定(尽管它用于划分聚类方法而不是分层)。文献中的其他方法包括所谓的“停止规则”。MILLIGAN & COOPER 在他们的论文“An 检查用于确定数据集中集群数量的程序”(可在此处获取:http://link.springer.com/article/10.1007%2FBF02294245)中比较了其中的 30 条停止规则,发现Calinski 和 Harabasz 的停止规则在蒙特卡洛评估中提供了最好的结果。在 R 中实现这一点的信息甚至更少。因此,如果有人曾经实施过这个或另一个停止规则(或其他方法),一些建议会非常有帮助。
统计描述集群:为了描述集群,我想到了使用均值和某种方差标准。我的数据是关于农业用地的,显示了每个城市不同作物的产量。我的目标是在我的数据集中找到类似的土地利用模式。
我为对象子集制作了一个脚本来进行第一次测试运行。它看起来像这样(脚本中的步骤说明,以下来源)。
#Clusteranalysis agriculture
#Load data
agriculture <-read.table ("C:\\Users\\etc...", header=T,sep=";")
attach(agriculture)
#Define Dataframe to work with
df<-data.frame(agriculture)
#Define a Subset of objects to first test the script
a<-df[1,]
b<-df[2,]
c<-df[3,]
d<-df[4,]
e<-df[5,]
f<-df[6,]
g<-df[7,]
h<-df[8,]
i<-df[9,]
j<-df[10,]
k<-df[11,]
#Bind the objects
aTOk<-rbind(a,b,c,d,e,f,g,h,i,j,k)
#Calculate euclidian distances including only the columns 4 to 24
dist.euklid<-dist(aTOk[,4:24],method="euclidean",diag=TRUE,upper=FALSE, p=2)
print(dist.euklid)
#Cluster with Ward
cluster.ward<-hclust(dist.euklid,method="ward")
#Plot the dendogramm. define Labels with labels=df$Geocode didn't work
plot(cluster.ward, hang = -0.01, cex = 0.7)
#here are missing methods to determine the optimal number of clusters
#Calculate different solutions with different number of clusters
n.cluster<-sapply(2:5, function(n.cluster)table(cutree(cluster.ward,n.cluster)))
n.cluster
#Show the objects within clusters for the three cluster solution
three.cluster<-cutree(cluster.ward,3)
sapply(unique(three.cluster), function(g)aTOk$Geocode[three.cluster==g])
#Calculate some statistics to describe the clusters
three.cluster.median<-aggregate(aTOk[,4:24],list(three.cluster),median)
three.cluster.median
three.cluster.min<-aggregate(aTOk[,4:24],list(three.cluster),min)
three.cluster.min
three.cluster.max<-aggregate(aTOk[,4:24],list(three.cluster),max)
three.cluster.max
#Summary statistics for one variable
three.cluster.summary<-aggregate(aTOk[,4],list(three.cluster),summary)
three.cluster.summary
detach(agriculture)
资料来源: