สัดส่วนแบบมีเงื่อนไข

โค้ดต่อไปนี้สร้างตารางของสัดส่วนร่วมและสัดส่วนแบบมีเงื่อนไขตามลำดับ:

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

ลองรันโค้ดนี้ใน console ดู ตัวละครเพศหญิงทั้งหมดประมาณกี่เปอร์เซ็นต์ที่เป็นฝ่ายดี?