条件付きの比率

次のコードは、それぞれ同時比率と条件付き比率の表を作成します。

tab <- table(comics$align, comics$gender)
options(scipen = 999, digits = 3) # 桁数を少なく表示
prop.table(tab)     # 同時比率
prop.table(tab, 2)  # 列を条件にした比率

コンソールで実行してみてください。女性キャラクター全体のうち、善良（good）はおよそ何割ですか？