我试图在犯罪数据集上实现r中的kmeans算法，并希望使用kmeans.ani((函数在迭代期间查看集群。但是，由 kmeans 算法生成的中心与图中的聚类不匹配。我也尝试过使用set.seed((函数。
> set.seed(5)
> fit<-kmeans(mydata,5)
> set.seed(5)
> kmeans.ani(mydata,5)
> fit[2]
$centers
Murder Rape Kidnapping.and.Abduction Dacoity
1 2712.33333 2183.0000 1703.6667 339.00000
2 1722.80000 1473.8000 3857.6000 231.60000
3 85.66667 129.6111 143.3333 11.44444
4 1382.62500 739.1250 1148.1250 190.62500
5 4951.00000 2042.0000 8500.0000 379.00000
在实际使用算法并比较结果之前，请花点时间打开 kmeans 的代码并逐行查看函数。
在将输出与您的输出进行比较之前，您应该熟悉他们的代码。
我倾向于做的是并排查看编写的论文和代码，您应该能够发现任何差异。