Proporzioni condizionali

Il codice seguente genera rispettivamente le tabelle delle proporzioni congiunte e condizionali:

tab <- table(comics$align, comics$gender)
options(scipen = 999, digits = 3) # Stampa meno cifre
prop.table(tab)     # Proporzioni congiunte
prop.table(tab, 2)  # Condizionate sulle colonne

Eseguilo nella console. All'incirca, quale proporzione di tutti i personaggi femminili è buona?