R语言使用k-means计算最优簇数出现不收敛警告如何解决

该警告是R基础包中kmeans()函数默认迭代上限仅为10次导致的，当数据分布较分散、聚类难度较高时，10次迭代不足以完成收敛，计算Gap统计量时需要重复运行多次kmeans，更容易触发该警告。

• 方法1：直接在clusGap()调用中传入iter.max参数调高迭代上限，clusGap()的额外参数会自动传递给内部调用的聚类函数，修改后代码如下：

set.seed(123)
gap_stat <- clusGap(df, FUN = kmeans, nstart = 25,
                    K.max = 10, B = 50, iter.max = 100)

• 方法2：自定义封装kmeans函数，统一配置迭代次数和随机起始点参数，适合需要多次调用聚类的场景：

# 自定义kmeans函数，固定迭代上限和起始点数量
kmeans_custom <- function(x, k) {
  kmeans(x, centers = k, nstart = 25, iter.max = 100)
}

set.seed(123)
gap_stat <- clusGap(df, FUN = kmeans_custom, K.max = 10, B = 50)

如果调整iter.max为100后仍出现警告，可以继续将参数值调到200甚至更高，一般情况下100次迭代足够覆盖绝大多数普通数据集的收敛需求。少量非收敛的情况对Gap统计量的最终结果影响很小，但调整迭代上限可以保证结果稳定性。

内容的提问来源于stack exchange，提问作者UseR10085