如何解决ggplot叠加偏移问题？实现100%完全重合

偏移原因 #

你遇到的偏移是因为两个ggplot的整体布局尺寸不一致：第一个图保留了完整的y轴刻度、文本元素，这些元素占据了左侧的空间；第二个图去掉了y轴文本和刻度，导致左侧边距缩小，整个绘图对象的宽度比第一个图窄。即使设置x=0, width=1，两个图的绘图面板（panel）也会因为整体尺寸差异而无法完全重合。

修复方法 #

方法1：统一两个图的布局占位

让第二个图隐藏y轴内容但保留占位空间，确保两个图的整体尺寸完全匹配：

library(ggplot2)
library(cowplot)
library(dplyr)

set.seed(1)
data = data.frame(x = rnorm(1000), y = rnorm(1000))

# 定义统一的基础主题和刻度设置
base_plot = function() {
  list(
    scale_y_continuous(limits = c(-4, 4), breaks = seq(-4, 4, by = 1)),
    scale_x_continuous(limits = c(-4, 4), breaks = seq(-4, 4, by = 1)),
    theme(plot.margin = margin(5.5, 5.5, 5.5, 5.5, "pt")) # 统一边距
  )
}

# 第一个图
p1 = ggplot(data, aes(x = x, y = y)) +
  geom_point(color = 'black') +
  base_plot()

# 第二个图：隐藏y轴内容但保留占位
p2 = ggplot(data %>% mutate(x = x + .05, y = y + .05), aes(x = x, y = y)) +
  geom_point(color = 'red') +
  base_plot() +
  theme(
    panel.grid.major = element_blank(), 
    panel.grid.minor = element_blank(),
    panel.background = element_rect(fill = 'transparent'), 
    plot.background = element_rect(fill = 'transparent'),
    axis.text.y = element_blank(), 
    axis.ticks.y = element_blank(),
    axis.title.y = element_blank(),
    axis.ticks.length.y = unit(0, "pt")
  )

# 叠加绘图
ggdraw() +
  draw_plot(p1) +
  draw_plot(p2, x = 0, y = 0, width = 1, height = 1)

方法2：用align_plots精确对齐面板

使用cowplot的align_plots工具，先将两个图的面板对齐，再进行叠加：

library(ggplot2)
library(cowplot)
library(dplyr)

set.seed(1)
data = data.frame(x = rnorm(1000), y = rnorm(1000))

p1 = ggplot(data, aes(x = x, y = y)) +
  geom_point(color = 'black') +
  scale_y_continuous(limits = c(-4, 4), breaks = seq(-4, 4, by = 1)) +
  scale_x_continuous(limits = c(-4, 4), breaks = seq(-4, 4, by = 1))

p2 = ggplot(data %>% mutate(x = x + .05, y = y + .05), aes(x = x, y = y)) +
  geom_point(color = 'red') +
  scale_y_continuous(limits = c(-4, 4), breaks = seq(-4, 4, by = 1)) +
  scale_x_continuous(limits = c(-4, 4), breaks = seq(-4, 4, by = 1)) +
  theme(
    panel.grid.major = element_blank(), 
    panel.grid.minor = element_blank(),
    panel.background = element_rect(fill = 'transparent'), 
    plot.background = element_rect(fill = 'transparent'),
    axis.text.y = element_blank(), 
    axis.ticks.y = element_blank()
  )

# 对齐两个图的面板（hv表示水平+垂直对齐，tblr表示对齐所有轴）
aligned_plots = align_plots(p1, p2, align = "hv", axis = "tblr")

# 叠加对齐后的图
ggdraw() +
  draw_plot(aligned_plots[[1]]) +
  draw_plot(aligned_plots[[2]], x = 0, y = 0, width = 1, height = 1)

方法3：在同一个ggplot中绘制两层（最简便）

如果不需要保留两个独立的ggplot对象，直接在同一个图中添加两层点，完全避免对齐问题：

library(ggplot2)
library(dplyr)

set.seed(1)
data = data.frame(x = rnorm(1000), y = rnorm(1000))

ggplot() +
  geom_point(data = data, aes(x = x, y = y), color = 'black') +
  geom_point(data = data %>% mutate(x = x + .05, y = y + .05), aes(x = x, y = y), color = 'red') +
  scale_y_continuous(limits = c(-4, 4), breaks = seq(-4, 4, by = 1)) +
  scale_x_continuous(limits = c(-4, 4), breaks = seq(-4, 4, by = 1))

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