Dirsek (Scree) grafiği
Önceki egzersizlerde, k değerleri 1'den 10'a kadar değişirken küme içi kareler toplamını hesapladın. Bu ilişkiyi bir çizgi grafikle görselleştirerek dirsek grafiği (veya scree grafiği) oluşturabilirsin.
Bir dirsek grafiğine bakarken, bir k değerinden diğerine keskin bir düşüşün ardından eğimde daha kademeli bir azalma görmek istersin. Grafiğin eğiminin düzleşmeye başladığı noktadan önceki son k değeri, "iyi" bir k değerine işaret eder.
Bu egzersiz, kursun bir parçasıdır
R ile Kümeleme Analizi
Egzersiz talimatları
- Önceki egzersizdeki çalışmana devam ederek,
elbow_dfiçindeki değerleri kullanıp k ile küme içi kareler toplamı (total within-cluster sum of squares) arasındaki ilişkiyi gösteren bir çizgi grafik çiz.
Uygulamalı etkileşimli egzersiz
Bu egzersizi bu örnek kodu tamamlayarak deneyin.
# 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)