R导出绘图到现有PDF不覆盖及多脚本绘图合并方法咨询

无需大幅修改原有两个独立脚本的逻辑，可通过以下两种方式实现每页左右排列两张图的需求：

方法1：导出绘图对象列表后拼接 #

• 分别修改两个脚本，将原有直接输出的绘图语句改为存储为绘图对象列表：
  • 若使用ggplot2绘图，直接把每张图存为ggplot对象放入列表
  • 若使用R基础绘图，绘图完成后调用recordPlot()记录绘图状态存入列表
    示例代码（脚本1修改示例）：

  plots_script1 <- list()
  # 原有第一张图的绘图代码
  plots_script1[[1]] <- ggplot(mtcars, aes(mpg, wt)) + geom_point()
  # 原有第二张图的绘图代码
  plots_script1[[2]] <- ggplot(mtcars, aes(hp, qsec)) + geom_point()
  # 以此类推存储所有绘图
  

  脚本2同理将所有绘图存入plots_script2列表。
• 调用patchwork包批量拼接每页的两张图输出到PDF：

  library(patchwork)
  # 打开PDF设备，宽高设置为适合左右放置两张图的尺寸
  pdf("merged_output.pdf", width = 12, height = 6)
  # 循环遍历所有绘图对
  for (i in seq_along(plots_script1)) {
    # 左右拼接两张图，自动适配页面宽度
    print(plots_script1[[i]] + plots_script2[[i]] + plot_layout(ncol = 2))
  }
  dev.off()
  # 如需导出为tiff/png格式，将pdf()函数替换为tiff()/png()即可
  

方法2：共享绘图设备直接输出 #

• 直接打开绘图设备后设置布局为1行2列，依次调用两个脚本的对应绘图代码，R会自动按布局填充左右区域，不会覆盖已有内容：

  pdf("merged_output.pdf", width = 12, height = 6)
  # 设置每页分为左右两个绘图区域
  par(mfrow = c(1,2))
  # 绘图总数按实际数量调整
  for (i in 1:20) {
    # 执行脚本1的第i张绘图代码，自动输出到左侧区域
    source(paste0("script1_plot_",i,".R"))
    # 执行脚本2的第i张绘图代码，自动输出到右侧区域
    source(paste0("script2_plot_",i,".R"))
  }
  dev.off()
  

注意：如果两个脚本的绘图总数不一致，可对数量少的一方补充空白占位图，避免循环报错。

如果已经单独导出了所有绘图文件，可通过以下方案批量合并：

R端批量合并方案 #

调用magick包读取两组图片后自动水平拼接输出：

library(magick)
# 分别读取两个脚本的输出文件，注意文件名按顺序排序
plots_script1 <- lapply(list.files(path = "./script1_output", pattern = "*.png", full.names = TRUE), image_read)
plots_script2 <- lapply(list.files(path = "./script2_output", pattern = "*.png", full.names = TRUE), image_read)
# 输出合并后的PDF
pdf("merged_output.pdf", width = 12, height = 6)
for (i in seq_along(plots_script1)) {
  # 水平拼接两张图
  combined_plot <- image_append(c(plots_script1[[i]], plots_script2[[i]]))
  plot(combined_plot)
}
dev.off()

该方案支持PNG、TIFF、单页PDF等常见格式的输入。

桌面工具合并方案 #

不想写代码可使用以下工具实现批量处理：

• PDFtk：支持批量将两个单页PDF按左右拼接为一页，再合并为完整PDF
• XnConvert：支持批量读取两组图片，按水平拼接规则导出为单张图片，再统一合并为PDF

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