Proporções condicionais

O código a seguir gera tabelas de proporções conjuntas e condicionais, respectivamente:

tab <- table(comics$align, comics$gender)
options(scipen = 999, digits = 3) # Exibir menos dígitos
prop.table(tab)     # Proporções conjuntas
prop.table(tab, 2)  # Condicional às colunas

Execute-o no console. Aproximadamente, qual proporção de todos os personagens femininos é boa?