如何固定ggplot散点图绘图区域，不受轴标题/文本有无影响

要让散点图的绘图面板尺寸始终一致，不管轴文本、标题是否存在，你可以用以下几种实用方法：

方法1：固定绘图边距（plot.margin） #

ggplot默认会根据轴文本、标题的存在动态调整边距，你可以手动设置固定边距，提前预留出轴元素的空间——即使隐藏这些元素，边距仍保持不变，从而保证面板尺寸一致。

示例代码：

library(ggplot2)

# 生成示例数据
df <- data.frame(x = rnorm(50), y = rnorm(50))

# 带轴文本的图
p1 <- ggplot(df, aes(x, y)) +
  geom_point() +
  theme(
    # 固定边距，顺序为：上、右、下、左，单位lines
    plot.margin = margin(1, 2, 1, 1, "lines")
  )

# 隐藏轴文本的图，复用相同的plot.margin
p2 <- ggplot(df, aes(x, y)) +
  geom_point() +
  theme(
    axis.text.x = element_blank(),
    axis.text.y = element_blank(),
    plot.margin = margin(1, 2, 1, 1, "lines")  # 和p1保持完全一致
  )

# 对比查看效果
p1
p2

你可以根据自己轴文本的实际长度调整margin的数值，确保预留足够空间。

方法2：手动固定面板尺寸（借助grid包） #

通过将ggplot对象转换为grob对象，直接指定面板的宽度和高度，强制所有图的面板尺寸统一。

示例代码：

library(ggplot2)
library(grid)

df <- data.frame(x = rnorm(50), y = rnorm(50))

p1 <- ggplot(df, aes(x, y)) + geom_point()
p2 <- ggplot(df, aes(x, y)) + geom_point() + theme(axis.text = element_blank())

# 转换为grob对象
g1 <- ggplotGrob(p1)
g2 <- ggplotGrob(p2)

# 定位面板在grob中的位置
panel_idx <- grep("panel", g1$layout$name)
# 设置固定的面板宽高
g1$widths[g1$layout$l[panel_idx]] <- unit(5, "cm")
g1$heights[g1$layout$t[panel_idx]] <- unit(5, "cm")

g2$widths[g2$layout$l[panel_idx]] <- unit(5, "cm")
g2$heights[g2$layout$t[panel_idx]] <- unit(5, "cm")

# 绘制调整后的图
grid.draw(g1)
grid.draw(g2)

这种方法直接控制面板的物理尺寸，精度更高，适合需要严格统一面板大小的场景。

方法3：使用patchwork包统一面板尺寸 #

如果需要组合多个图，patchwork包可以一键设置所有图的面板尺寸一致：

library(ggplot2)
library(patchwork)

df <- data.frame(x = rnorm(50), y = rnorm(50))

p1 <- ggplot(df, aes(x, y)) + geom_point()
p2 <- ggplot(df, aes(x, y)) + geom_point() + theme(axis.text = element_blank())

# 组合图并强制统一面板尺寸
(p1 + p2) + plot_layout(panel_size = unit(5, "cm"))

panel_size参数直接指定所有面板的大小，不管各自的轴元素是否存在，面板都会保持完全一致。

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