持久存储ggplot2 qplot

Question

我试图重现this example关于如何使用grid.arrange和两个图，我唯一的调整是改变我之间的一些数据。奇怪的是，这改变了我存储的第一个情节。一个例子：

require(data.table)
require(ggplot2)

dt <- data.table(x=1:200, y=rnorm(200)) # Sample data

t1 <- qplot(y, data=dt) # Histogram of y
t1 # Show plot

dt[, y := x] # Change y to x
t1 # t1 changed...

我假设这是ggplot2的某种预期行为。因此，我的问题是，是否有可能使t1持久化这种变化，即以一种如果基础数据发生变化它不会改变的方式存储图。

我的用例是rmarkdown文件，我想在其中并排显示未更改和更改的变量。