조건부 비율

다음 코드는 각각 결합 비율과 조건부 비율 표를 생성합니다:

tab <- table(comics$align, comics$gender)
options(scipen = 999, digits = 3) # 자리수 적게 출력
prop.table(tab)     # 결합 비율 (joint proportions)
prop.table(tab, 2)  # 열 기준 조건부 비율 (conditional on columns)

콘솔에서 실행해 보세요. 모든 여성(female) 캐릭터 중 선한(good) 캐릭터의 대략적인 비율은 얼마인가요?