保存ggplot对象

Question

我使用gridExtra显示多个图，我发现ggplot对象不能正确保存。看看这个简单的代码：

工作版：

gs <- list()
for(i in 1:4){
  gs[[i]] <- qplot(rnorm(100), geom = "histogram", main = i)
}
grid.arrange(grobs = gs, ncol = 2)

问题版本：

gs <- list()
for(i in 1:4){
  x <- rnorm(100)
  gs[[i]] <- qplot(x, geom = "histogram", main = i)
}
grid.arrange(grobs = gs, ncol = 2)

第二个版本在我的R工作区中生成相同的图。我使用的版本是ggplot2-v2.2.1和gridExtra-v2.3