如何用plot.margin调整面板间距并实现ggplot绘图跨列组合

需求说明 #

• 第一行：让fig1（带facet_grid(forest.type ~ sp.type)的分面图）横跨整个宽度（占满三列）
• 第二行：并排放置3个fig4，各占一列
• 最终输出尺寸要求：21cm高、16.5cm宽，且轴文本大小需与手稿其他图匹配

初始尝试的问题 #

调整plot.margin的无效性 #

修改plot.margin参数无法实现fig1跨三列的布局，保存指定尺寸时绘图会被压缩；放大查看虽能勉强达到预期布局，但轴文本过小，无法和手稿其他图统一。

初始代码：

set.seed(111)
f1 <- data.frame(forest.type = rep(c("A","B","C","D"), times = 36 ),
           sp.type = rep(c("X","Y","Z"), times = 48),
           time.type = rep(c(1:12), each = 12),
           number.type = rnorm(144))
fig1 <- ggplot(aes(x = time.type, y = number.type), data = f1) +
  geom_point() + 
  theme_classic() + facet_grid(forest.type ~ sp.type, scales="free")   +  
  theme(legend.position = "none") + theme(aspect.ratio = 10/20) + 
  ggtitle("These wont stretch across the three columns")


fig4 <- ggplot(aes(x = time.type, y = number.type), data = f1) +
  geom_point() + 
  theme_classic() + 
  theme(legend.position = "none") +   theme(aspect.ratio = 7/5) + 
  ggtitle("All this goes in \nrow 2")

fig1 <- fig1 + theme(plot.margin=unit(c(0,0,0,0),"cm"))
fig4 <- fig4 + theme(plot.margin=unit(c(0,0,-10,1),"cm"))

初始效果：

使用cowplot的布局问题 #

尝试用cowplot布局后，仍存在布局不协调的问题，无法满足尺寸和文本匹配要求：

set.seed(111)
f1 <- data.frame(forest.type = rep(c("A","B","C","D"), times = 36 ),
                 sp.type = rep(c("X","Y","Z"), times = 48),
                 time.type = rep(c(1:12), each = 12),
                 number.type = rnorm(144))
fig1 <- ggplot(aes(x = time.type, y = number.type), data = f1) +
  geom_point() + 
  theme_classic() + facet_grid(forest.type ~ sp.type, scales="free")   +  
  theme(legend.position = "none") + theme(aspect.ratio = 10/20) + 
  ggtitle("These wont stretch across the three columns")

fig1 <- fig1 + theme(plot.margin=unit(c(0,0,0,0),"cm"))
fig4 <- fig4 + theme(plot.margin=unit(c(0,0,0,0),"cm"))

library("cowplot")
ggdraw() +
  draw_plot(fig1, x = 0, y = 0.5, width = 1, height = 0.5) +
  draw_plot(fig4, x = 0, y = 0, width = 0.3, height = .5) +
  draw_plot(fig4, x = 0.3, y = 0, width = 0.3, height = .5) +
  draw_plot(fig4, x = 0.6, y = 0, width = 0.3, height = 0.5) +

  draw_plot_label(label = c("A", "B", "C","D"), size = 15,
                  x = c(0, 0, 0.3, 0.6), y = c(0.5, 0, 0, 0))

cowplot效果：

解决方案：用patchwork实现精准布局 #

patchwork包更适配这种网格布局需求，能直接控制整体尺寸和文本样式，避免压缩和文本大小不匹配问题：

步骤1：安装并加载patchwork #

install.packages("patchwork")
library(patchwork)

步骤2：统一文本样式（匹配手稿） #

先定义全局主题，确保所有绘图的文本规格统一：

custom_theme <- theme_classic() +
  theme(
    legend.position = "none",
    axis.text = element_text(size = 12), # 根据手稿实际需求调整大小
    axis.title = element_text(size = 14),
    plot.title = element_text(size = 16)
  )

步骤3：重新定义绘图并构建布局 #

set.seed(111)
f1 <- data.frame(forest.type = rep(c("A","B","C","D"), times = 36 ),
                 sp.type = rep(c("X","Y","Z"), times = 48),
                 time.type = rep(c(1:12), each = 12),
                 number.type = rnorm(144))

# 重新定义fig1，移除固定宽高比让布局自适应，应用自定义主题
fig1 <- ggplot(aes(x = time.type, y = number.type), data = f1) +
  geom_point() + 
  facet_grid(forest.type ~ sp.type, scales="free") +  
  custom_theme +
  ggtitle("These stretch across the three columns")

# 重新定义fig4，同样移除固定宽高比
fig4 <- ggplot(aes(x = time.type, y = number.type), data = f1) +
  geom_point() + 
  custom_theme +
  ggtitle("All this goes in \nrow 2")

# 构建布局：第一行fig1占满宽度，第二行3个fig4并排
layout <- fig1 + (fig4 + fig4 + fig4) +
  plot_layout(nrow = 2, heights = c(1, 1)) # 可根据需求调整两行高度比例，比如c(2,1)

# 直接保存为指定尺寸，保证文本清晰
ggsave("final_plot.png", layout, width = 16.5, height = 21, units = "cm", dpi = 300)

关键说明 #

1. 移除aspect.ratio：固定宽高比会强制绘图压缩，让patchwork根据整体尺寸自动调整更合理
2. 全局主题统一：避免局部调整文本样式的混乱，确保和手稿规格一致
3. plot_layout参数：nrow=2指定两行结构，heights控制两行高度占比
4. 直接用ggsave指定尺寸：无需事后调整，一步输出符合要求的图片

替代方案：优化cowplot参数 #

如果坚持使用cowplot，可通过以下调整解决问题：

# 应用统一主题，移除固定宽高比
custom_theme <- theme_classic() +
  theme(
    legend.position = "none",
    axis.text = element_text(size = 12),
    axis.title = element_text(size = 14),
    plot.title = element_text(size = 16)
  )

fig1 <- fig1 + custom_theme + theme(aspect.ratio = NULL)
fig4 <- fig4 + custom_theme + theme(aspect.ratio = NULL)

# 调整布局参数，让第二行三图间距更合理
ggdraw() +
  draw_plot(fig1, x = 0, y = 0.5, width = 1, height = 0.5) +
  draw_plot(fig4, x = 0, y = 0, width = 0.32, height = 0.5) +
  draw_plot(fig4, x = 0.34, y = 0, width = 0.32, height = 0.5) +
  draw_plot(fig4, x = 0.68, y = 0, width = 0.32, height = 0.5) +
  draw_plot_label(label = c("A", "B", "C","D"), size = 15,
                  x = c(0, 0, 0.34, 0.68), y = c(1, 0.5, 0.5, 0.5))

# 保存指定尺寸
ggsave("cowplot_final.png", width = 16.5, height = 21, units = "cm", dpi = 300)

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