如何在ggplot2中实现仅后续重复测量点应用position_dodge偏移，基线点保持单个重合显示？

我来帮你搞定这个ggplot绘图的小难题！你的数据集是交叉设计，有一个共享基线（timepoint 1）和两次重复测量，绘图时既想让后续分组的数据点/误差棒不重叠，又不想让基线的两个重合点被分开偏移，对吧？

问题背景 #

你的数据集结构是这样的：共享基线（timepoint 1）+ 两次重复测量的交叉设计，原始绘图会出现数据点和误差棒重叠的问题。数据集构建代码如下：

library(tidyverse)
set.seed(11)
df_test <- tibble(group = factor(rep(c("A", "B"), each = 3)),
                  timepoint = factor(rep(1:3, 2)),
                  y = c(0, rnorm(2, mean = 0, sd = .2), 0, rnorm(2, mean = .7, sd = 0.35))) %>%
  mutate(ymax = y + .2, ymin = y - .2)

如果直接不做偏移处理，绘图会出现重叠：

# plot_nododge <- df_test %>% 
#   ggplot(aes(timepoint, y, group = group, shape = group, fill = group)) +
#   geom_linerange(linetype = 1, aes(ymin = ymin, ymax = ymax)) +
#   geom_point() +
#   geom_line()

现有方案的问题 #

用position_dodge()虽然能解决重叠，但基线点实际上是单个测量值，被显示成两个偏移的点很容易让读者混淆，这显然不是我们想要的效果：

# plot1 <- df_test %>% 
#   ggplot(aes(timepoint, y, group = group, shape = group, fill = group)) +
#   geom_linerange(linetype = 1, position = position_dodge(.2), aes(ymin = ymin, ymax = ymax)) +
#   geom_point(position = position_dodge(.2)) +
#   geom_line(position = position_dodge(.2))

优化解决方案及扩展 #

手动调整x轴位置是最适合的方案，同时我们还可以自定义基线的形状和颜色，优化x轴标签，让图表更清晰。下面是完整的实现代码：

df_test %>% 
  mutate(shape_var = case_when(timepoint == 1 ~ 22,
                               group == "A" ~ 21,
                               group == "B" ~ 24),
         fill_var = case_when(timepoint == 1 ~ "black",
                              group == "A" ~ "red",
                              group == "B" ~ "blue"),
         timepoint2 = as.numeric(as.character(timepoint)),
         # 仅对后续时间点的分组数据添加偏移
         timepoint2 = timepoint2 + 0.05*(timepoint2 > 1 & group == "B"),
         timepoint2 = timepoint2 - 0.05*(timepoint2 > 1 & group == "A")) %>%
  ggplot(aes(timepoint2, y, group = group, shape = shape_var, fill = fill_var)) +
  geom_linerange(aes(ymin = ymin, ymax = ymax)) +
  geom_line() +
  geom_point(size = 2) +
  # 把连续型x轴模拟成离散轴的样式
  scale_x_continuous(breaks = 1:3,
                     labels = c("Baseline", "time 1", "time 2"),
                     limits = c(.75, 3.25)) +
  # 自定义形状图例，只显示分组A和B，隐藏基线的形状
  scale_shape_identity(guide = "legend", name = "Treatment",
                       breaks = c(21, 24),
                       labels = c("A", "B")) +
  # 自定义填充色图例，同样只显示分组A和B
  scale_fill_identity(guide = "legend", name = "Treatment",
                      breaks = c("red", "blue"),
                      labels = c("A", "B")) +
  labs(x=NULL)

关键细节说明： #

• x轴偏移处理：通过timepoint2列将离散的时间点转为数值，仅对timepoint>1的分组数据添加±0.05的偏移，确保基线点重合，后续分组点分开。
• 形状与颜色区分：用case_when自定义基线的形状（22）和颜色（黑色），和分组A、B的样式区分开，让读者一眼识别基线。
• 图例优化：通过scale_shape_identity和scale_fill_identity控制图例只显示分组A和B，避免基线样式干扰图例解读。
• x轴模拟离散样式：用scale_x_continuous设置breaks和labels，把连续的x轴显示成离散的时间点样式，保持图表的直观性。

内容的提问来源于stack exchange，提问作者Matt L.