r - 将 ggplots 保存到 for 循环中的列表

Question

我产九ggplots在 for 循环中，随后使用 grid.arrange 排列这些图:

plot_list <- list()
for(i in c(3:ncol(bilanz.vol))) {
  histogram <- ggplot(data = bilanz.vol, aes(x = bilanz.vol[,i])) +
  geom_histogram() +
  scale_x_log10() +
  ggtitle(paste(varnames[i]))

  # ggsave(filename = paste("Graphs/", vars[i], ".png", sep = ""), width = 16, height = 12, units = "cm")

  plot_list <- c(plot_list, list(histogram))
}

library(gridExtra)

png(filename = "Graphs/non-mfi.png", width = 1280, height = 960, units = "px")
do.call(grid.arrange, c(plot_list, list(ncol = 3)))
dev.off()

代码本身运行良好，没有错误。但由于某种原因我不明白，网格显示相同的(最后一个)直方图九次。尽管如此，每个图都显示了正确的标题。

有趣的是，当我取消对 ggsave 的注释时在上面的代码行中，每个图都被正确(单独)保存并显示了预期的直方图。

有任何想法吗？

Answer 1

原因是ggplot不计算aes中的表达式在使用之前调用(所以我至少相信)，它只是设置绘图并将数据存储在其中。在您的情况下，“数据”是整个数据框 bilanz.vol自 i = ncol(bilanz.vol)后 for循环完成表达式 bilanz.vol[,i]将对所有绘图对象的评估结果相同。

为了让它工作，你可以这样做，确保所有的绘图对象都包含不同的数据集 my.data .

my.data <- data.frame(x = bilanz.vol[,i])
histogram <- ggplot(data = my.data, aes(x = x)) +
    geom_histogram() +
    scale_x_log10() +
    ggtitle(paste(varnames[i]))