ggplot2中如何让不同形状抖动点与避让箱线图正确对齐

问题表现 #

现有散点与箱线图组合的避让对齐方案，在需要按第三个分类因子为散点设置不同形状时会出现对齐异常：散点无法落在对应分组的箱线图上方，出现跨组错位。

复现代码 #

示例构造数据 #

data <- cbind(
  expand.grid(
    trt = factor(1:4), 
    block = factor(1:2), 
    year = factor(c(2013, 2022))
  ), 
  value = runif(512)
)

已尝试的无效写法 #

第一种写法：

ggplot(data, aes(x = trt, y = value, color = year)) +
  geom_boxplot(outlier.size = 0, size=3, alpha=0.7) +
  geom_point(
    alpha=0.4, 
    position = position_jitterdodge(dodge.width = 1),
    size=3,
    aes(shape=factor(block))
  )

第二种写法：

ggplot(data, aes(x = trt, y = value, color = year)) +
  geom_boxplot(
    position = position_dodge2(0.85, preserve = "single"), 
    outlier.size=0, 
    size=3,
    alpha=0.7
  ) + 
  geom_jitter(
    position = position_dodge2(0.85, preserve = "single"),
    aes(shape=factor(block)),
    size=3,
    alpha=0.4
  )

两种写法的异常表现完全一致：

ggplot2默认将所有block=1的点全部放置在2013年分组的避让位置，没有将属于year==2022的block=1点归到对应年份的分组位置，散点与同组箱线图完全错位。

预期效果 #

每个year分组对应的散点，避让位置与同组箱线图的避让位置完全匹配对齐。

解决方案 #

问题根源 #

1. 箱线图的避让分组仅按year（color映射的变量）计算，但散点图层额外映射了shape=factor(block)，ggplot2默认会将图层所有映射的分类变量纳入避让分组计算，两边分组维度不一致直接导致错位。
2. 两种写法中箱线图和散点的避让宽度参数没有统一，geom_jitter搭配position_dodge2的组合本身也不兼容散点抖动+分组避让的逻辑。

修正后代码 #

ggplot(data, aes(x = trt, y = value, color = year)) +
  geom_boxplot(
    outlier.size = 0,
    size = 3,
    alpha = 0.7,
    width = 0.8 # 箱线图自身宽度与避让宽度统一
  ) +
  geom_point(
    # 关键1：显式指定group为year，和箱线图的避让分组规则保持一致
    aes(shape = factor(block), group = year),
    alpha = 0.4,
    size = 3,
    # 关键2：使用专门适配散点抖动+分组避让的position_jitterdodge
    position = position_jitterdodge(
      dodge.width = 0.8, # 和箱线图宽度参数完全一致
      jitter.width = 0.2 # 控制同组内散点抖动幅度，可按需调整
    )
  )

注意事项 #

• 若后续调整箱线图的避让宽度，必须同步修改散点图层position_jitterdodge的dodge.width参数，保持两边数值完全相等
• 若散点需要映射更多分类美学（如size、linetype等），只要箱线图没有对应映射，都需要显式指定group参数，统一分组规则
• 不要用geom_jitter搭配position_dodge2实现分组散点，优先使用position_jitterdodge，它的分组计算逻辑专门适配箱线图+散点的组合场景

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