K表示R中的聚類算法

Question

我試圖在犯罪數據集上實現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

Answer 1

實際使用你的算法和比較結果之前，請一會兒打開kmeans代碼並逐行查看函數。

在將輸出與您的輸出進行比較之前，您應該先熟悉自己的代碼。

我傾向於做的是看寫的文件，並肩並肩的代碼，你應該能夠捕捉到任何差異。