使用patchwork拼接ggplot图表时实现geom_point与geom_col横轴对齐

问题核心原因 #

上下图x轴的实际渲染范围不一致导致坐标映射比例不同：

• 上方p1通过limits=plot_limits明确指定x轴范围为2021-01-01至2021-01-16
• 下方p2未指定x轴范围，默认按数据的最大最小日期（2021-01-01至2021-01-15）+ 柱状图宽度自动扩展范围，两者x轴单位长度对应的像素值不同，自然无法对齐。

解决方法 #

方法1：统一两个图的x轴配置（最推荐） #

给p2的scale_x_date也添加和p1完全一致的limits、expand参数，确保x轴映射规则完全相同：

# 仅修改p2的scale_x_date部分即可
p2 <- p2data %>%  
  ggplot() + 
  geom_col(aes(x=initdate,y=data, fill=data)) + 
  # 这里添加和p1完全一致的limits、expand参数
  scale_x_date(expand=c(0,0),
               date_breaks = '1 days',
               date_labels = '%b-%d',
               limits=plot_limits) +
  theme_bw() + 
  # 其余theme配置保持不变

如果觉得重复写x轴配置麻烦，也可以用patchwork的批量设置语法，两个图都写完后统一配置x轴：

# 替换原来的p1/p2代码即可
(p1/p2) & 
  scale_x_date(expand=c(0,0),
               date_breaks = '1 days',
               date_labels = '%b-%d',
               limits=plot_limits)

方法2：统一横轴为离散因子（适配复杂日期分类场景） #

如果后续日期存在缺失、或者需要严格按分类对齐，可以把日期转成有序因子，确保每个日期的位置完全固定：

# 预处理数据时把日期转成同水平的有序因子
p1data <- p1data %>% mutate(date = factor(date, levels = as.character(ymd('2021-01-01') + days(0:(nn-1)))))
p2data <- p2data %>% mutate(initdate = factor(initdate, levels = levels(p1data$date)))

# 后续绘图时把scale_x_date换成scale_x_discrete即可，无需再调整limits

方法3：手动微调散点位置（仅适配临时应急场景） #

如果不想修改轴配置，可以给上方geom_point的x坐标添加微小的时间偏移，调整到和柱子中心对齐：

# 给x加0.45天的偏移，适配默认宽度为0.9的柱状图中心位置
geom_point(aes(x=date + days(0.45), y=values), color='red', size=3)

调整完如果仍有细微偏移，可检查两个图的plot.margin设置，确保左右边距完全一致，避免画布边距导致的偏移。

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