如何在R中为多张绘图添加边框或分组表格

太懂这种手动处理几百个表格的崩溃感了！在R里完全可以实现批量给分组绘图加边框/框体，根本不用去Word或Excel里折腾。下面给你几个实用的方案，适配不同的绘图场景：

如果你的绘图都是用ggplot2生成的，Patchwork是最方便的分组加框工具，代码简洁还能灵活布局。

library(ggplot2)
library(patchwork)

# 先生成几个示例绘图（替换成你自己的绘图对象即可）
p1 <- ggplot(mtcars, aes(mpg)) + geom_histogram(bins = 8) + ggtitle("Hist 1")
p2 <- ggplot(mtcars, aes(qsec)) + geom_histogram(bins = 8) + ggtitle("Hist 2")
p3 <- ggplot(mtcars, aes(sample = mpg)) + stat_qq() + stat_qq_line() + ggtitle("QQ 1")
p4 <- ggplot(mtcars, aes(sample = qsec)) + stat_qq() + stat_qq_line() + ggtitle("QQ 2")
p5 <- ggplot(mtcars, aes(fitted(lm(mpg ~ wt)), residuals(lm(mpg ~ wt)))) + geom_point() + ggtitle("Resid 1")
p6 <- ggplot(mtcars, aes(fitted(lm(qsec ~ wt)), residuals(lm(qsec ~ wt)))) + geom_point() + ggtitle("Resid 2")

# 把同类型的图分组，给每组加边框和标题
hist_group <- (p1 + p2) + 
  plot_annotation(title = "Histograms", theme = theme(plot.background = element_rect(color = "black", size = 1, fill = NA)))

qq_group <- (p3 + p4) + 
  plot_annotation(title = "QQ Plots", theme = theme(plot.background = element_rect(color = "black", size = 1, fill = NA)))

resid_group <- (p5 + p6) + 
  plot_annotation(title = "Residual Plots", theme = theme(plot.background = element_rect(color = "black", size = 1, fill = NA)))

# 把所有分组垂直合并展示（也可以用+横向合并）
hist_group / qq_group / resid_group

原理：Patchwork把同组的图打包成一个子面板，通过plot.background设置黑色边框，你只需要把自己的绘图按类型放进列表，用循环就能批量处理所有分组，完全不用手动操作。

如果你的绘图是用R基础绘图系统生成的（比如hist()、qqnorm()），可以用gridExtra配合grid包来实现分组加框。

library(gridExtra)
library(grid)

# 定义几个基础绘图函数（替换成你自己的绘图代码）
plot_hist1 <- function() hist(mtcars$mpg, main = "Hist 1", col = "lightblue")
plot_hist2 <- function() hist(mtcars$qsec, main = "Hist 2", col = "lightblue")
plot_qq1 <- function() qqnorm(mtcars$mpg, main = "QQ 1")
plot_qq2 <- function() qqnorm(mtcars$qsec, main = "QQ 2")

# 自定义一个给分组加边框和标题的函数
add_group_border <- function(plot_funcs, ncol = 2, group_title = "") {
  # 把绘图转换成grid对象
  plot_grobs <- lapply(plot_funcs, function(f) {
    f()
    grid.grab()  # 捕获当前绘图的grid对象
  })
  # 组合绘图
  arranged <- grid.arrange(grobs = plot_grobs, ncol = ncol)
  # 添加边框
  grid.rect(gp = gpar(col = "black", lwd = 2))
  # 添加分组标题
  grid.text(group_title, y = unit(0.98, "npc"), gp = gpar(fontsize = 12, fontface = "bold"))
  return(arranged)
}

# 分组处理绘图
grid.newpage()
# 创建布局：2行1列
pushViewport(viewport(layout = grid.layout(2, 1)))

# 第一行放直方图组
pushViewport(viewport(layout.pos.row = 1))
add_group_border(list(plot_hist1, plot_hist2), group_title = "Histograms")
popViewport()

# 第二行放QQ图组
pushViewport(viewport(layout.pos.row = 2))
add_group_border(list(plot_qq1, plot_qq2), group_title = "QQ Plots")
popViewport()

原理：通过grid.grab()把基础绘图转换成可操作的grid对象，再用grid.rect()给整个分组画边框，自定义函数可以重复调用，批量处理所有你的绘图分组。

如果你觉得Patchwork的语法有点复杂，ggpubr是更轻量化的ggplot组合工具，也能轻松实现分组加框。

library(ggpubr)

# 用之前的ggplot示例图
hist_group <- ggarrange(p1, p2, ncol = 2)
# 给分组加标题和边框
hist_group <- annotate_figure(hist_group, top = text_grob("Histograms", face = "bold", size = 12))
hist_group <- as_ggplot(hist_group) + theme(plot.background = element_rect(color = "black", size = 1, fill = NA))

qq_group <- ggarrange(p3, p4, ncol = 2)
qq_group <- annotate_figure(qq_group, top = text_grob("QQ Plots", face = "bold", size = 12))
qq_group <- as_ggplot(qq_group) + theme(plot.background = element_rect(color = "black", size = 1, fill = NA))

# 合并所有分组
ggarrange(hist_group, qq_group, nrow = 2)

原理：ggarrange先把同组图合并，再用annotate_figure加标题，最后转换成ggplot对象后设置边框，操作简单易上手。

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