R：无法将绘图从循环输出到文件

Question

我正在尝试使用R输出一系列文件。

通常，我们可以使用以下代码输出绘图：

jpeg("XXXXX_XXXX.jpg")

ggplot(data=YEAR_ZIP_DATA, aes(x=SOME_VARIABLE)) + geom_bar()

dev.off()

上面的代码可以给我一个当前工作目录中的文件XXXXX_XXXX.jpg

现在，我想编写一个循环来创建一系列文件：每年，为每个邮政编码绘制一个条形图，然后保存到当前目录。这是代码：

# year_list: a list of distinctive years
for(year in year_list){
  # zip_list: a list of distinctive zip codes
  for(zip in zip_list){
    # some code to get a filename like 10010_2018.jpg
    filename <- (some code)

    # some code to subset the data to get the current zip and year
    year_zip_data <- (some code)

    jpeg(filename)

    ggplot(data=year_zip_data, aes(x=SOME_VARIABLE)) + geom_bar()

    dev.off()
  }
}

但是，在上述循环之后，当前工作目录中没有任何内容...我该如何解决该问题？

谢谢！

Answer 1

尝试使用ggsave函数。它直接保存由ggplot创建的图形对象。