示例：性别歧视

R 推断基础

Jo Hardin

Instructor

银行图像.png

¹ Rosen B 和 Jerdee T. 1974. 性别角色刻板印象对人事决策的影响。Journal of Applied Psychology

简历.png

¹ Rosen B 和 Jerdee T. 1974. 性别角色刻板印象对人事决策的影响。Journal of Applied Psychology

数据

	晋升	未晋升	合计
男性	21	3	24
女性	14	10	24
合计	35	13	48

女性晋升更少

disc <- data.frame(
    promote = c(rep("promoted", 35), rep("not_promoted", 13)), 
    sex = c(rep("male", 21), rep("female", 14),
    rep("male", 3), rep("female", 10)))

disc %>%
    group_by(sex) %>%
    summarize(promoted_prop = mean(promote == "promoted"))

# A tibble: 2 × 2
     sex promoted_prop
  <fctr>         <dbl>
1 female     0.5833333
2   male     0.8750000

随机因素？

首次洗牌

	晋升	未晋升
男性	18	6
女性	17	7

24 份简历分配给男性/女性
允许 35 个晋升名额

随机因素 1.png

随机因素？

随机因素 2.png

随机因素？

随机因素 3.png

随机因素？

随机因素 4.png

随机因素？

随机因素 5.png

随机因素？

随机因素 6.png

随机因素？

随机因素 7.png

Ayo berlatih!

R 推断基础