Kümeleri görselleştir
Bu noktaya kadar, gözlemleri kümeleri temsil eden elipslerle birlikte çizebilmek için gereken her şeye sahibiz.
Ayrıca, her bir gözlemi iki kümeden birine atamak istersek clusters() fonksiyonunu kullanabilir ve sonuçları gerçek etiketlerle karşılaştırabiliriz. Hatırlatmak gerekirse, verileri kümelerken sadece Weight değişkenini kullandığımızda, 4500 kadın ve 4556 erkeği doğru tahmin etmiştik. Ek bir değişkeni dahil ettiğimizde kümeleri daha iyi ayırıp ayıramayacağımıza bakalım.
Bu egzersiz, kursun bir parçasıdır
R ile Karışım Modelleri
Egzersiz talimatları
WeightveBMIiçin saçılım grafiği oluşturmak üzeregeom_point()kullan. Bu grafiğegeom_path()fonksiyonuylaellipses_comp_numberiçinde kayıtlı iki elipsi ekle.- Elipslerin bir data frame'e dönüştürülmesi gerektiğini unutma.
- Küme 1'i kırmızı, küme 2'yi mavi renkle göster.
Genderdeğişkeninde saklanan gerçek etiketlerleclusterstarafından tahmin edilen etiketleri karşılaştıran bir frekans tablosu oluştur.
Uygulamalı etkileşimli egzersiz
Bu egzersizi bu örnek kodu tamamlayarak deneyin.
# Plot the ellipses
gender %>%
ggplot(aes(x = ___, y = ___)) + ___()+
geom_path(data = data.frame(ellipse_comp_1), aes(x=x,y=y), col = "___") +
geom_path(data = data.frame(ellipse_comp_2), aes(x=x,y=y), col = "___")
# Check the assignments
table(gender$Gender, clusters(fit_with_cov))