Elbow (Scree) plot
V předchozích cvičeních jsi vypočítal/a celkový součet čtverců uvnitř clusterů pro hodnoty k od 1 do 10. Tento vztah můžeš vizualizovat pomocí spojnicového grafu a vytvořit tak tzv. elbow plot (nebo scree plot).
V elbow plotu hledáš prudký pokles mezi dvěma hodnotami k, za kterým následuje pozvolnější snižování sklonu. Poslední hodnota k před tím, než se křivka grafu vyrovná, naznačuje „dobrou" hodnotu k.
Toto cvičení je součástí kurzu
Cluster Analysis v R
Pokyny k cvičení
- Navazuj na práci z předchozího cvičení a pomocí hodnot z
elbow_dfvykresli spojnicový graf zobrazující vztah mezi k a celkovým součtem čtverců uvnitř clusterů.
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
# 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)