Tỷ lệ có điều kiện

Đoạn mã sau lần lượt tạo các bảng tỷ lệ kết hợp và tỷ lệ có điều kiện:

tab <- table(comics$align, comics$gender)
options(scipen = 999, digits = 3) # In ít chữ số hơn
prop.table(tab)     # Tỷ lệ kết hợp
prop.table(tab, 2)  # Có điều kiện theo cột

Hãy chạy nó trong console. Xấp xỉ bao nhiêu phần trăm trong tất cả các nhân vật nữ là người tốt?