在R中选择Kmeans中的初始质心

Question

我正在使用k表示用户群集。我希望通过自己选择初始质心来进一步改善我的簇。

因为在数据帧中，kmeans将随机行分配为初始质心并影响最终聚类。

有没有办法在R中手动分配初始质心？我使用elbow方法来获得最佳簇数。

我的代码在这里：

for (i in 2:15) wss[i] <- sum(kmeans(db, 
                          centers=i, iter.max = 20)$withinss)
plot(1:15, wss, type="b", xlab="Number of Clusters",
    ylab="Within groups sum of squares")

fit <- kmeans(db, 7)
aggregate(db, by=list(fit$cluster),FUN=mean)
mydata <- data.frame(db, fit$cluster)