0
私のk-meansのシルエットを光沢を使ってプロットしようとしています。以下のコードの一部です:シルエットプロットが200行以上のデータに対して機能していない
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)
私はそれをスタンドアロンアプリケーションではできますが、Shinyアプリケーションではできません – vipin8169