如何将ggplot图形对象保存到R环境，删除原数据集仍可显示

问题根源 #

ggplot对象默认仅保存绘图逻辑和数据的引用，而非完整的数据集。当原始数据集被删除后，R渲染图形时无法找到对应的数据源，因此会报错。

重现问题的代码 #

library(tidyverse)
# 截取数据集
diamonds_top_300 <- head(diamonds, 300)
# 创建图形对象
diamonds_top_300_graph <- ggplot(diamonds_top_300, aes(x = carat, y = price)) +
  geom_point()
# 删除原始数据
rm(diamonds_top_300)
# 调用图形对象会报错
diamonds_top_300_graph

解决方案 #

方案1：将数据嵌入图形对象（推荐） #

使用ggplot_build()解析图形并将所有依赖数据嵌入对象，之后可通过grid.draw()直接渲染，也能保存为RDS文件长期存储：

# 构建包含完整数据的图形结构
built_graph <- ggplot_build(diamonds_top_300_graph)
# 转换为可渲染的gtable对象
graph_with_data <- ggplot_gtable(built_graph)

# 保存对象（可选）
saveRDS(graph_with_data, "diamonds_graph_with_data.rds")

# 删除原始数据后正常显示
rm(diamonds_top_300)
grid::grid.draw(graph_with_data)

方案2：创建图形时直接嵌入数据 #

在ggplot()函数内部直接生成数据集，避免引用外部变量，这样ggplot会自动将数据嵌入图形对象：

# 直接在ggplot内部生成数据，不依赖外部变量
diamonds_top_300_graph <- ggplot(head(diamonds, 300), aes(x = carat, y = price)) +
  geom_point()

# 无需保留原始数据，直接调用即可显示
diamonds_top_300_graph

方案3：手动将数据复制到图形对象 #

如果已经创建了图形对象，可手动将数据集复制到对象的data元素中，再保存使用：

# 将原始数据复制到图形对象内部
diamonds_top_300_graph$data <- diamonds_top_300

# 保存对象
saveRDS(diamonds_top_300_graph, "diamonds_graph.rds")

# 删除原始数据后，读取并显示
rm(diamonds_top_300)
loaded_graph <- readRDS("diamonds_graph.rds")
loaded_graph

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