如何在R的ggplot2中为分组柱状图叠加分组散点

你需要实现的是按受试者组（Young Adult/Older Adult）和实验条件（Absent/Present）分组的柱状图，同时让每个分组柱状上方的散点也对应双变量分组，而不是仅按实验条件排列。之前的代码问题在于散点没有和柱状图的分组逻辑对齐，且多余的分面破坏了布局，以下是修正方案：

核心改动点 #

• 给散点添加group=Group映射，让ggplot识别散点的分组逻辑
• 使用position_jitterdodge()替代单纯的jitter，实现散点的分组偏移+抖动，完美匹配柱状图的dodge布局
• 移除多余的facet_grid，因为柱状图的x轴+fill分组已经实现了你要的布局
• 调整颜色映射为scale_fill_discrete，和柱状图的fill属性对应

修正后的完整代码 #

ACC3 <- read_xls(path="raw_data/ACC3.xls") # 加载数据文件

# 自定义变量在图表中的显示顺序（覆盖默认字母序）
ACC3$Condition <- factor(ACC3$Condition, c("Absent", "Present")) 
ACC3$Group <- factor(ACC3$Group, c("Young Adult", "Older Adult")) 

ACC3 %>%
    ggplot(aes(fill=Group, y=accuracy, x=Condition)) + 
    # 分组柱状图：指定dodge宽度为0.8，和后续元素对齐
    geom_bar(position=position_dodge(width=0.8), width = 0.8, stat = "summary", fun = "mean", color="black", size = .8)+
    # 误差棒：匹配柱状图的dodge宽度，保证对齐
    stat_summary(fun.data = mean_sdl, geom='errorbar', color='black', position=position_dodge(0.8), width = 0.2, linewidth = 0.8) +
    # 散点：按Group分组，同时应用抖动+偏移，dodge宽度和柱状图一致
    geom_point(aes(group=Group), position = position_jitterdodge(jitter.width=0.3, dodge.width=0.8), alpha = 0.8) +
    # 设置填充色的标签，对应分组名称
    scale_fill_discrete(labels = c("Young Adult", "Older Adult"))

效果说明 #

修改后，每个实验条件（Absent/Present）下的两个受试者组柱状上方，会精准对应显示该组参与者的散点：散点既按受试者组分列对齐，又有适度抖动避免点重叠，完全匹配柱状图的分组布局。

内容的提问来源于stack exchange，提问作者sunnyd123