條件比例

下列程式碼分別產生聯合比例與條件比例的表格：

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？