Proporsi bersyarat

Kode berikut menghasilkan tabel proporsi gabungan dan bersyarat, masing-masing:

tab <- table(comics$align, comics$gender)
options(scipen = 999, digits = 3) # Cetak lebih sedikit digit
prop.table(tab)     # Proporsi gabungan
prop.table(tab, 2)  # Bersyarat pada kolom

Silakan jalankan di konsol. Kira-kira berapa proporsi dari semua karakter perempuan yang bersifat baik (good)?