Question

我想根据预先确定的中心点（my_center_Points）对Long和Lats（my_long_lats）列表进行分组。

当我跑步时： -

k <- kmeans(as.matrix(my_long_lats), centers = as.matrix(my_center_Points))

k$centers 不等于 my_center_Points。

我假设k-means已将我的中心点调整到最佳中心。但我需要的是my_center_Points不会更改并将my_long_lats分组。

在此link 他们谈论设置初始中心但我如何设置一旦我运行k意味着不会改变的中心？或者有更好的聚类算法吗？

我甚至可以尽量减少中心的移动。

我在R中还有很多东西要学，任何帮助都非常感谢。

Answer 1

执行centers群集后会自动评估

kmeans。事实上，确定centers是分成群组的关键点。我认为可以帮助你的几个选项。

限制iter.max。您可以在1函数调用中将其设置为kmeans。这不保证保持中心固定，但如果您处理大型数据集，更改将会更少。
使用虚拟数据。您可以在所选dummy周围的实际数据集中添加许多centers个数据。这将为预先确定的centers增加额外的重量。最有可能centers保持不变。

Answer 2

以下是使用geosphere库正确计算纬度和经度距离的计算。

变量closestcenter是标识每个点的最近中心的结果。

#define random data
centers<-data.frame(x=c(44,44, 50, 50), y=c(44, 50, 44, 50))
pts<-data.frame(x=runif(25, 40, 55), y=runif(25, 40, 55))

#allocate space
distance<-matrix(-1, nrow = length(pts$x), ncol= length(centers$x))

library(geosphere)
#calculate the dist matrix - the define centers to each point
#columns represent centers and the rows are the data points
dm<-apply(data.frame(1:length(centers$x)), 1, function(x){ replace(distance[,x], 1:length(pts$x), distGeo(centers[x,], pts))})

#find the column with the smallest distance
closestcenter<-apply(dm, 1, which.min)

#color code the original data for verification
colors<-c("black", "red", "blue", "green")
plot(pts , col=colors[closestcenter], pch=19)

在R中设置kmeans的静态中心

2 个答案: