使用grid排列ggplot图形时轴数字被裁剪的问题排查与解决

问题原因 #

• grid.arrange默认会强制对齐所有子图的绘图面板（panel），为了保证面板尺寸一致，会压缩子图的整体分配空间，导致轴文本、标题等面板外的元素超出分配边界，最终被裁剪。
• ggplot的plot.background是整个图表（含轴文本、标题等外围元素）的背景框，但grid.arrange在布局时默认只以面板尺寸为基准计算空间，没有预留足够区域容纳外围元素，所以这些元素会跑到背景框外面。

解决方法1：让轴文本处于绘图区域内 #

通过调整ggplot主题参数，将轴文本纳入绘图区域范围：

• 调整轴文本边距，往绘图区域内偏移：设置axis.text的margin为负数，让文本靠近面板
• 缩小轴文本尺寸：减少文本占用的空间
• 增加绘图区域内边距：给外围元素预留空间

示例代码：

library(gridExtra)
library(ggplot2)
data <- data.frame(x = 1, y = 1)
p <- ggplot(data, aes(x = x, y = y)) +
  geom_point()+
  theme(
    plot.background = element_rect(color = "black", fill = NA, linewidth = 1),
    # 让Y轴文本往绘图区域内偏移
    axis.text.y = element_text(margin = margin(r = -3)),
    # 增加绘图内边距，给轴文本留空间
    plot.margin = margin(5, 15, 5, 5, "pt")
  )
grid.arrange(p, p, p, p, ncol=2)

解决方法2：让布局识别完整图表区域（避免裁剪） #

更推荐的方式是让布局工具考虑子图的完整尺寸（含所有外围元素），而非仅对齐面板：

2.1 使用patchwork包（现代布局工具，推荐） #

patchwork会自动处理每个子图的空间需求，无需手动调整即可避免裁剪：

library(ggplot2)
library(patchwork)
data <- data.frame(x = 1, y = 1)
p <- ggplot(data, aes(x = x, y = y)) +
  geom_point()+
  theme(plot.background = element_rect(color = "black", fill = NA, linewidth = 1))

# 2列布局
p + p + p + p + plot_layout(ncol = 2)

2.2 在gridExtra中启用respect参数 #

respect = TRUE会让布局尊重子图的宽高比，避免挤压外围元素：

library(gridExtra)
library(ggplot2)
data <- data.frame(x = 1, y = 1)
p <- ggplot(data, aes(x = x, y = y)) +
  geom_point()+
  theme(plot.background = element_rect(color = "black", fill = NA, linewidth = 1))
grid.arrange(p, p, p, p, ncol=2, respect = TRUE)

2.3 手动指定子图宽度 #

如果上述方法无效，可以手动调整子图宽度，预留足够空间给轴文本：

library(gridExtra)
library(ggplot2)
library(grid)
data <- data.frame(x = 1, y = 1)
p <- ggplot(data, aes(x = x, y = y)) +
  geom_point()+
  theme(plot.background = element_rect(color = "black", fill = NA, linewidth = 1))

# 创建布局对象并指定宽度
g <- arrangeGrob(p, p, p, p, ncol=2, widths = c(1.1, 1.1)) # 可根据需求调整宽度比例
grid.draw(g)

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