用K確定K值的Scree圖

Question

我正在學習R，在做K均值聚類的同時，我多次發現了下面的函數，以便從scree圖確定最佳K值。 現在，我明白了這個函數背後的邏輯，但是我很難理解R函數，有人可以解釋一下。

wssplot <- function(data, nc=15, seed=1234) 
    { 
    wss <- (nrow(data)-1)*sum(apply(data,2,var)) 
    for (i in 2:nc) 
    { 
     set.seed(seed) 
     wss[i] <- sum(kmeans(data, centers=i)$withinss) 
    } 
    plot(1:nc, wss, type="b", xlab="Number of Clusters", 
    ylab="Within groups sum of squares") 
} 

Answer 1

該函數運行kmeansnc-1倍，並發現平方和，它概括了的矢量。這是每個迭代的結果，它們依次繪製在一個圖上，其中x軸表示聚類數量，y軸表示平方和的總和。