R语言：折线图中数据点与误差线的对齐偏移设置问题

我想要制作带有分组数据点、折线和误差棒的可视化图表，需要将不同类别的元素沿X轴偏移，避免同一类别下的数值完全重叠。我尝试使用position_jitterdodge参数，但发现它只对geom_jitter（数据点）生效，无法作用于geom_line（折线图）或geom_errorbar（误差线），相关代码如下：

df <- ToothGrowth
df$dose <- as.factor(df$dose)

df.summary <- df %>%
  group_by(supp,dose) %>%
  summarise(
    sd = sd(len, na.rm = TRUE),
    len = mean(len)
  )

ggplot(df, aes(dose, len)) +
  geom_jitter(
    aes(color = supp),
    position = position_jitter(0.2) # position_jitterdodge ?
  ) + 
  geom_line(
    aes(group = supp, color = supp),
    data = df.summary
  ) +
  geom_errorbar(
    aes(ymin = len-sd, ymax = len+sd, color = supp),
    data = df.summary, width = 0.2
  )+
  scale_color_manual(values = c("#00AFBB", "#E7B800"))

要让折线、误差棒和散点保持对齐的偏移，需要统一使用位置调整参数，具体操作如下：

• 先定义一个共用的position_dodge对象，设置固定的偏移宽度，保证所有元素偏移量一致：

  pd <- position_dodge(width = 0.2)
  

• 对geom_jitter使用position_jitterdodge，指定dodge.width与上面的偏移宽度匹配，同时设置抖动幅度jitter.width控制散点的分散程度；
• 给geom_line和geom_errorbar都加上position = pd，让它们和散点的偏移完全对齐。

完整代码示例：

library(ggplot2)
library(dplyr)

df <- ToothGrowth
df$dose <- as.factor(df$dose)

df.summary <- df %>%
  group_by(supp,dose) %>%
  summarise(
    sd = sd(len, na.rm = TRUE),
    len = mean(len)
  )

# 定义统一的偏移参数
pd <- position_dodge(width = 0.2)

ggplot(df, aes(dose, len)) +
  geom_jitter(
    aes(color = supp),
    position = position_jitterdodge(jitter.width = 0.1, dodge.width = 0.2)
  ) + 
  geom_line(
    aes(group = supp, color = supp),
    data = df.summary,
    position = pd
  ) +
  geom_errorbar(
    aes(ymin = len-sd, ymax = len+sd, color = supp),
    data = df.summary, 
    width = 0.2,
    position = pd
  )+
  scale_color_manual(values = c("#00AFBB", "#E7B800"))

修改后，折线、误差棒和散点会按supp分组沿X轴偏移，既避免了元素重叠，又保证了同一组内各元素的对齐。

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