R中的聚类分析：K均值中的肘法

Question

我正在使用R包fviz_nbclust对数据集实施elbow方法。该方法将通过将K从1 ..... k更改为每个簇，求和在平方和内。例如，肘法建议K = 2。假设对于K均值，这里我们有两个不同的结果。有没有办法找出弯头法计算出的wss？是否有办法查看哪些K均值会导致使用K = 2进行聚类的肘部方法？

Answer 1

可能有更优雅的方法，但是您可以简单地将范围外分配添加到您的集群函数中，例如：

l <- list()
f <- function(...) {
  km <- kmeans(...)
  l[[nrow(km$centers)]] <<- km
  km
}

fviz_nbclust(df, f, method = "wss", k.max = 10)

然后只需索引l[[optimal nr of clusters]]即可检索模型