如何有序排列同填充/颜色组内重叠的geom？jitter效果过于随机

我绘制了一张展示主分析中部分优势比（OR）的图表，但geom元素发生重叠，难以看清置信区间的完整范围。原绘图代码如下：

ggplot(df, aes(x = agegrp, y = or, color = udd)) +
  geom_point(size = 3) +
  geom_segment(aes(x = agegrp, xend = agegrp,
                   y = lower, yend = upper)) +
  theme_bw()

尝试添加jitter效果后，布局过于随机，不符合规整排列的需求：

ggplot(df, aes(x = agegrp, y = or, color = udd)) +
  geom_point(size = 3,
             position = position_jitter(width = 0.3, 
                                        seed = 1)) +
  geom_segment(aes(x = agegrp, xend = agegrp,
                   y = lower, yend = upper), 
               position = position_jitter(width = 0.3,  
                                          seed = 1)) +
  theme_bw()

希望实现规整分组错开的排列效果，对应的数据集如下：

set.seed(1)
df <- data.frame(
  agegrp = rep(c("18-39", "40-69", "70+"), 3),
  udd = c(rep("V", 3), rep("E", 3), rep("G", 3)),
  or = runif(9, min = 1.1, max = 3.9),
  lower = runif(9, min = 0.6, max = 2.7),
  upper = runif(9, min = 3.2, max = 6.7)
)

解决方案 #

使用position_dodge()替代position_jitter()，它能让同x轴分组下的不同类别（由color=udd区分）按照固定间距错开，既避免重叠又保持规整。需要给geom_point()和geom_segment()设置相同的width参数，确保点和对应的置信区间线段对齐。

修改后的代码

ggplot(df, aes(x = agegrp, y = or, color = udd)) +
  geom_point(size = 3,
             position = position_dodge(width = 0.3)) +
  geom_segment(aes(x = agegrp, xend = agegrp,
                   y = lower, yend = upper), 
               position = position_dodge(width = 0.3)) +
  theme_bw()

如果需要更灵活的元素对齐支持，也可以用position_dodge2()，用法类似：

ggplot(df, aes(x = agegrp, y = or, color = udd)) +
  geom_point(size = 3,
             position = position_dodge2(width = 0.3)) +
  geom_segment(aes(x = agegrp, xend = agegrp,
                   y = lower, yend = upper), 
               position = position_dodge2(width = 0.3)) +
  theme_bw()

注：width参数控制分组错开的间距，可根据图表实际宽度调整，确保元素不重叠且布局美观。

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