ungroup() %>% # 解除分组
unite(col = "status_gender", gender, status, sep = "_") %>% # 将性别和选举状态合并成一个新的列...构建数据用于在图形中添加空白区域
dummy_constituency =
tibble(y = c(-max(results$y), 0, 0, max(results$y)), # y值为最大最小值及其负值...gender = c("female", "female", "male", "male")) %>% # 性别列
mutate(gender_label = case_when...映射选区、y值和主导性别
shape = 19,size = 4) +
geom_blank(data = dummy_constituency, # 添加空白图层,使用虚拟选区数据..., dir = "h", scales = "free", reverse_num = TRUE) + # 分面显示,根据性别标签分面
coord_flip() + # 翻转坐标轴,使选区显示在y