如何在ggplot中控制geom_point抖动，实现分面内位置一致？

使用facet_grid()绘制系数图时，叠加geom_point()和geom_errorbar()展示两组数据，为避免重叠设置了position = position_jitter(seed=100)，但抖动的随机性导致不同分面中两组的点/误差条位置左右不定、间距随机，希望能按组指定抖动的幅度和方向，或者找到无需抖动的替代实现方式。

方法1：用position_dodge替代随机抖动 #

position_dodge是专门为分组偏移设计的位置调整函数，它会固定按组分配位置，完全消除随机性，比抖动更适合两组对比的场景。只需将两个geom的position参数改为position_dodge(width = 0.25)，就能保证同一分面内两组的位置固定且对齐。

方法2：手动添加固定x偏移量 #

如果需要更精细的控制，可以将x轴的因子变量转换为数值，然后给不同attend组添加固定的偏移值，这样点和误差条的位置完全由你指定，没有任何随机性。

library(ggplot2)
library(dplyr)
library(patchwork)
library(forcats)

dex$group <- factor(dex$outcome_type2, c("TPW", "Money", "Support"))

plot_fun <- function(.data) {
  remove_facet <- if (unique(.data$group) %in% c("TPW", "Money")) {
    theme(strip.text.y = element_blank())
  }

  .data$outcome_type <- fct_relevel(
    .data$outcome_type,
    "TPW T", "TPW I", "TPW E", "Money1", "Money2", "Support1", "Support2")

  .data %>%
    tidyr::complete(outcome_type, wave = unique(dex$wave), attend) %>%
    ggplot(aes(x = outcome_type, y = Mean, color = attend,
               ymin = LowCI, ymax = UpperCI)) +
    # 改用position_dodge，width控制偏移幅度
    geom_errorbar(linewidth = 1, width = 0, position = position_dodge(width = 0.25)) +
    geom_point(size = 1.9, shape = 16, position = position_dodge(width = 0.25)) +
    facet_grid(wave ~ outcome_type, scales = "free") +
    scale_fill_manual(values = c("Attend" = "red", "Not_Attend" = "blue"),
                      aesthetics = c("fill", "color"), guide = guide_legend(element_blank)) +
    theme_classic(base_size = 13) +
    remove_facet
}

dex_split <- split(dex, dex$group)

lapply(dex_split, plot_fun) %>%
  wrap_plots() +
  plot_layout(widths = c(3, 2, 2), guides = "collect") &
  labs(x = NULL, y = NULL, fill = NULL) &
  theme(axis.text.x = element_blank(),
        strip.text.x = element_text(size = 11),
        legend.position = "bottom",
        legend.title = element_blank(),
        plot.title = element_text(size = 15, face = "bold"),
        plot.subtitle = element_text(size = 13),
        panel.grid.major = element_blank())

手动偏移的代码片段（可选） #

如果需要自定义偏移方向和幅度，可以在数据预处理阶段添加x偏移：

# 在plot_fun中添加这一步
.data <- .data %>%
  mutate(
    # 将因子转为数值，添加固定偏移
    x_num = as.numeric(outcome_type) + case_when(
      attend == "Attend" ~ 0.15,       # Attend组向右偏移
      attend == "Not_Attend" ~ -0.15   # Not_Attend组向左偏移
    )
  )

# 然后ggplot的x用x_num，同时设置x轴刻度对应原因子
ggplot(aes(x = x_num, y = Mean, color = attend, ymin = LowCI, ymax = UpperCI)) +
  geom_errorbar(linewidth = 1, width = 0) +
  geom_point(size = 1.9, shape = 16) +
  scale_x_continuous(breaks = 1:length(unique(.data$outcome_type)),
                     labels = levels(.data$outcome_type)) +
  # 其他图层不变...

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