条件比例

下面的代码分别生成联合比例和条件比例的列联表：

tab <- table(comics$align, comics$gender)
options(scipen = 999, digits = 3) # Print fewer digits
prop.table(tab)     # Joint proportions
prop.table(tab, 2)  # Conditional on columns

请在控制台中运行代码。大约有多少比例的女性角色是 good（正派）？