如何持久化存储ggplot2的qplot，避免底层数据变更影响已存图表？

这确实是ggplot2的延迟求值特性导致的——当你创建一个ggplot对象（比如你的t1）时，它并没有立刻把数据渲染成图形，只是保存了“如何绘图”的规则和对数据源的引用。等到你实际调用这个对象（比如用grid.arrange展示）的时候，它才会去读取当前版本的数据源，所以你后续修改原始数据后，t1再被渲染时就会用新数据，自然就变了。

下面给你几种在R Markdown里能用的解决方案，按需选择：

方法1：提前构建图表，固化数据 #

用ggplot_build()把图表的渲染结果提前生成，这样数据就被“固定”在构建后的对象里，后续修改原始数据也不会影响它：

library(ggplot2)
library(gridExtra)

# 原始数据
df <- data.frame(x = 1:5, y = 1:5)

# 创建t1并提前构建好
t1 <- ggplot(df, aes(x, y)) + geom_point()
t1_built <- ggplot_build(t1)

# 修改原始数据
df$y <- df$y * 2
t2 <- ggplot(df, aes(x, y)) + geom_point()

# 把构建好的t1转成gtable后排列
grid.arrange(ggplot_gtable(t1_built), t2, ncol = 2)

方法2：给图表分配独立的数据副本 #

最简单直观的方式：给t1单独用一份数据的副本，这样修改原始数据不会影响这个副本：

library(ggplot2)
library(gridExtra)

# 原始数据
df <- data.frame(x = 1:5, y = 1:5)

# 复制一份数据给t1专用
df_t1 <- df
t1 <- ggplot(df_t1, aes(x, y)) + geom_point()

# 修改原始数据，不影响df_t1
df$y <- df$y * 2
t2 <- ggplot(df, aes(x, y)) + geom_point()

# 直接排列两个图表即可
grid.arrange(t1, t2, ncol = 2)

方法3：临时保存为图形对象（适合复杂场景） #

如果你的图表很复杂，也可以先把t1用ggsave()存成临时的图形文件，再读回来展示——不过这种方法会多一步IO操作，前两种更高效：

library(ggplot2)
library(gridExtra)
library(png)

df <- data.frame(x = 1:5, y = 1:5)
t1 <- ggplot(df, aes(x, y)) + geom_point()

# 临时保存t1
ggsave("temp_t1.png", t1)
# 读回成图形对象
t1_png <- rasterGrob(readPNG("temp_t1.png"))

df$y <- df$y * 2
t2 <- ggplot(df, aes(x, y)) + geom_point()

grid.arrange(t1_png, t2, ncol = 2)
# 记得清理临时文件
file.remove("temp_t1.png")

在R Markdown文档里，直接把这些代码放进代码块就能正常运行，保证t1始终显示修改数据前的状态。

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