- # 数据载入
- UCBA <- data.frame(datasets::UCBAdmissions)
- # 为更好地展示和分析问题,将数据截取部分
- UCBA <- filter(UCBA, Dept %in% c("A", "D"))
Admit | Gender | Dept | Freq |
Admitted | Male | A | 512 |
Rejected | Male | A | 313 |
Admitted | Female | A | 89 |
Rejected | Female | A | 19 |
Admitted | Male | D | 138 |
Rejected | Male | D | 279 |
Admitted | Female | D | 131 |
Rejected | Female | D | 244 |
数据的内容是不同性别(Gender)的人申请不同的系(Dept),获得同意或拒绝(Admit)的次数(Freq)。
将数据汇总后,可以形成下面的图(制图比较简单,不赘述了):