如何将ggplot对象转为PNG对象并存储在R环境（无需本地保存）

我刚好碰到过一模一样的需求——不想把图片存到本地，直接在R里拿着PNG对象操作。这里有两种靠谱的方法，都能跳过“存文件再导入”的步骤：

方法1：用magick包（推荐，操作更灵活） #

magick包专门用于图像处理，能直接在内存中生成并管理图像对象，步骤很清晰：

# 先运行你提供的代码生成ggplot对象
library(tidyverse)
df <- as.data.frame(Titanic)
gg <- ggplot(data = df, aes(x = Survived, y = Freq))
plot <- gg + geom_bar(stat = "identity")

# 加载magick包（如果没装先运行install.packages("magick")）
library(magick)

# 1. 创建一个内存中的图形设备，可指定尺寸和分辨率
img_device <- image_graph(width = 600, height = 400, res = 96)
# 2. 将ggplot对象打印到这个设备上
print(plot)
# 3. 关闭设备并获取PNG图像对象
png_obj <- image_get()
# 关闭设备（可选，但养成好习惯）
dev.off()

# 现在png_obj就是存在R环境里的PNG对象了！可以直接查看、修改
png_obj
# 比如给图片加个水印：png_obj %>% image_annotate("Titanic Survival")

这个方法得到的png_obj是magick-image类对象，支持各种图像编辑操作，非常实用。

方法2：用基础包组合（无需额外安装magick） #

如果不想装新包，可以用png和grid包的组合，把PNG内容存为raw向量再转为对象：

# 同样先运行你的代码生成plot对象
library(tidyverse)
df <- as.data.frame(Titanic)
gg <- ggplot(data = df, aes(x = Survived, y = Freq))
plot <- gg + geom_bar(stat = "identity")

# 加载必要的基础包
library(png)
library(grid)

# 1. 创建一个内存连接来存储PNG数据
png_conn <- rawConnection(raw(0), "w")
# 2. 打开PNG设备，输出指向这个内存连接
png(png_conn, width = 600, height = 400, res = 96)
# 3. 用grid.draw绘制ggplot对象（ggplot基于grid系统）
grid.draw(plot)
# 4. 关闭设备
dev.off()

# 5. 读取内存中的PNG数据转为对象
seek(png_conn, 0) # 回到连接起始位置
png_obj <- readPNG(png_conn)
close(png_conn) # 关闭连接

# 查看生成的PNG对象
grid.raster(png_obj)

这个方法得到的png_obj是一个三维数组（宽度×高度×通道），适合需要底层图像数据操作的场景。

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