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