剪影图不适用于超过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次并且有效。