如何用ggplot实现R modelsummary模型图分组与Y轴变量互换？

1. 解决置信区间与点不同步偏移的问题 #

不要用geom_jitter()，而是提前在数据框中生成固定偏移量，让点和置信区间共用同一偏移后的坐标：

• 假设你的数据框为plot_data，包含model（模型/因变量，Y轴）、term（表型/自变量，颜色分组）、estimate（系数）、conf.low（置信下限）、conf.high（置信上限）列
• 给每个model-term组合分配固定偏移值，按表型数量均分偏移范围：

library(dplyr)
library(ggplot2)

plot_data <- plot_data %>%
  group_by(model) %>%
  mutate(
    term_n = n(),
    # 设定总偏移宽度为0.4，给每个表型分配对应偏移值
    x_offset = seq(-0.2, 0.2, length.out = term_n)[as.integer(factor(term))]
  ) %>%
  ungroup()

• 绘图时，点和置信区间都使用偏移后的横坐标：

ggplot(plot_data, aes(y = estimate, color = term)) +
  geom_errorbar(aes(x = as.integer(model) + x_offset, ymin = conf.low, ymax = conf.high), width = 0.1) +
  geom_point(aes(x = as.integer(model) + x_offset), size = 3) +
  scale_x_continuous(breaks = 1:length(unique(plot_data$model)), labels = unique(plot_data$model)) +
  labs(x = "模型（因变量）", y = "系数估计值", color = "表型（自变量）") +
  theme_minimal()

2. 解决同模型内点的指定顺序问题 #

通过将term转换为因子并指定levels顺序，让偏移量对应预设顺序：

• 先定义你需要的表型顺序，比如desired_order <- c("表型A", "表型B", "表型C")
• 重新编码因子水平并同步调整偏移逻辑：

desired_order <- c("表型A", "表型B", "表型C")

plot_data <- plot_data %>%
  mutate(term = factor(term, levels = desired_order)) %>%
  group_by(model) %>%
  mutate(
    term_n = n(),
    x_offset = seq(-0.2, 0.2, length.out = term_n)[as.integer(term)]
  ) %>%
  ungroup()

• 若要调整Y轴模型的顺序，同样给model指定因子levels：

desired_model_order <- c("模型1", "模型2", "模型3")
plot_data$model <- factor(plot_data$model, levels = desired_model_order)

• 再运行之前的ggplot代码，同模型内的点就会按指定顺序排列。

额外提示：随机偏移的同步方案 #

如果想要类似jitter的随机效果且保证误差棒同步，可生成随机偏移后保存到数据框：

set.seed(123) # 固定随机种子保证结果可重复
plot_data <- plot_data %>%
  group_by(model) %>%
  mutate(x_offset = runif(n(), -0.15, 0.15)) %>%
  ungroup()

绘图时同样让点和误差棒使用x = as.integer(model) + x_offset。

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