Elbow- (scree)plot
In de vorige oefeningen heb je de totale som van kwadraten binnen clusters berekend voor waarden van k van 1 tot en met 10. Je kunt deze relatie visualiseren met een lijngrafiek om een zogeheten elbow-plot (of screeplot) te maken.
Bij een elbow-plot let je op een sterke daling van de ene k naar de andere, gevolgd door een meer geleidelijke afname van het verloop. De laatste k-waarde voordat de helling van de plot afvlakt, wijst op een "goede" waarde voor k.
Deze oefening maakt deel uit van de cursus
Clusteranalyse in R
Oefeninstructies
- Ga verder op je werk uit de vorige oefening en gebruik de waarden in
elbow_dfom een lijngrafiek te maken die de relatie laat zien tussen k en de totale som van kwadraten binnen clusters.
Interactieve oefening met praktijkervaring
Probeer deze oefening door deze voorbeeldcode aan te vullen.
# Use map_dbl to run many models with varying value of k (centers)
tot_withinss <- map_dbl(1:10, function(k){
model <- kmeans(x = lineup, centers = k)
model$tot.withinss
})
# Generate a data frame containing both k and tot_withinss
elbow_df <- data.frame(
k = 1:10,
tot_withinss = tot_withinss
)
# Plot the elbow plot
ggplot(___, aes(x = ___, y = ___)) +
geom_line() +
scale_x_continuous(breaks = 1:10)