Proportions conditionnelles

Le code suivant génère respectivement des tableaux de proportions conjointes et conditionnelles :

tab <- table(comics$align, comics$gender)
options(scipen = 999, digits = 3) # Afficher moins de chiffres
prop.table(tab)     # Proportions conjointes
prop.table(tab, 2)  # Conditionnel sur les colonnes

Exécutez-le dans la console. Approximativement, quelle proportion de tous les personnages féminins sont bons ?