剪影陰謀不適用於超過200行數據

Question

我想繪製我的k-means使用閃亮的輪廓。下面是一段代碼：

dissE <- daisy(pima_diabetes_kmean[, c(input$models_to_consider)]) 
dE2 <- dissE^2 
sk2 <- silhouette(k.means.fit.knn()$cl, dE2) 
plot(sk2) 

這導致下面的情節，其中集羣丟失：

不過，如果我更改代碼只用200行數據（或使用window()），它確實有效。但我不想在一個單獨的窗口中顯示我的結果，因爲我使用的是閃亮的。我希望結果在同一頁上，其餘的結果在這裏。

dissE <- daisy(pima_diabetes_kmean[1:200, c(input$models_to_consider)]) 
dE2 <- dissE^2 
sk2 <- silhouette(k.means.fit.knn()$cl[1:200], dE2) 
plot(sk2) 

Answer 1

我有同樣的問題。我將它導出到一個pfd文件，然後你可以看到它們的寬度。我嘗試過的最大意見數是1148，而且它的工作。