如何将PDF/JPG/PNG保存为对象并合并绘图？R语言技术问询

1. 将绘图保存为内存中的对象 #

方法1：直接记录绘图状态 #

用recordPlot()可以直接把当前绘图捕获为内存对象，完全跳过磁盘IO：

# 绘制图形后记录到对象
plot(x=1:2, y=1:2)
plot_obj <- recordPlot()

# 后续可随时调用该对象重新绘制
plot_obj

方法2：生成内存中的PDF/PNG二进制对象 #

如果需要得到PDF或PNG格式的二进制数据，用rawConnection替代磁盘文件路径，让绘图设备输出到内存：

生成PDF对象

# 创建内存连接
con <- rawConnection(raw(0), "w")
pdf(file = con)
plot(x=1:2, y=1:2)
dev.off()
# 提取PDF二进制数据
pdf_obj <- rawConnectionValue(con)
close(con)

生成PNG对象

con <- rawConnection(raw(0), "w")
png(file = con)
plot(x=1:2, y=1:2)
dev.off()
png_obj <- rawConnectionValue(con)
close(con)

2. 合并多个绘图为网格布局 #

根据你使用的绘图类型（基础绘图/ggplot2），选择对应的工具包实现灵活布局：

基础绘图 + gridExtra #

先记录多个绘图对象，再用grid.arrange()自由调整布局和尺寸：

library(gridExtra)

# 生成多个绘图对象
plot1 <- recordPlot({plot(x=1:3, y=1:3, main="图1")})
plot2 <- recordPlot({plot(x=4:6, y=4:6, main="图2")})
plot3 <- recordPlot({plot(x=7:9, y=7:9, main="图3")})

# 按2列布局，指定宽度/高度比例
grid.arrange(plot1, plot2, plot3, ncol=2, widths=c(2,1), heights=c(1,2))

ggplot2绘图 + patchwork #

如果用ggplot2，patchwork的语法更直观，支持灵活的布局组合和尺寸调整：

library(ggplot2)
library(patchwork)

# 创建多个ggplot对象
p1 <- ggplot(mtcars, aes(mpg, disp)) + geom_point()
p2 <- ggplot(mtcars, aes(hp, qsec)) + geom_line()
p3 <- ggplot(mtcars, aes(cyl)) + geom_bar()

# 上下布局，调整上下部分高度比
(p1 + p2) / p3 + plot_layout(heights = c(2, 1))
# 左右布局，调整左右宽度比
p1 + p2 + plot_layout(widths = c(3, 1))

3. 核心逻辑总结 #

• 用recordPlot()直接捕获基础绘图的状态，全程在内存操作
• 用rawConnection替代磁盘文件，让PDF/PNG设备输出到内存连接，再提取为二进制对象
• 合并时直接使用内存中的绘图对象，彻底跳过导出-重新导入的步骤

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