powered by
Plots the silhouette diagram for a given clustering result.
plot_silhouette(sil)
A silhouette plot if input is not NULL, otherwise a placeholder text.
A silhouette object as returned by silhouette.
silhouette
data <- scale(iris[, 1:4]) cl <- kmeans(data, 3)$cluster sil <- cluster::silhouette(cl, dist(data)) if (interactive()) { plot_silhouette(sil) }
Run the code above in your browser using DataLab