Failed to save image in R language ggplot2 loop

1.问题描述

在使用R语言ggplot2绘图时,Need to save multiple image results,所以使用循环.
结果,ggplot2when placed in a loop,If using Create Image（pdf("filename.pdf") 或 png("filename.png") etc...）and close the picture(dev.off())的命令,需要注意.

例如,使用下面的代码,Want to loop3个pdf图片文件（循环外,A single image operation is no problem）,Use this in a loop不能保存图片且代码不报错.

require(ggplot2)
for(i in 1:3){
    
  pdf(paste( i, ".pdf", sep=""))
  ggplot(iris, aes(x=Sepal.Width, y=Sepal.Length)) +
    geom_point(aes(color=Species), size=3) +
    scale_color_brewer(palette = "Set2")
  dev.off()}

实际上生成的3个pdfThe file has no image content,In fact, the pictures in the cache are not released and saved toPDF中.

当然,如果不使用ggplot2也没这问题,也能正常保存
例如：

for(i in 1:3){
    
  pdf(paste( i, ".pdf", sep=""))
  plot(1:10)
  dev.off()}

结果没问题：

2.问题解决

2.1 使用ggsave函数保存,成功

for(i in 1:3){
    
  ggplot(iris, aes(x=Sepal.Width, y=Sepal.Length)) +
    geom_point(aes(color=Species), size=3) +
    scale_color_brewer(palette = "Set2")
  ggsave(paste( i, ".pdf", sep=""))}

2.2 使用print函数输出,成功

require(ggplot2)
for(i in 1:3){
    
  pdf(paste( i, ".pdf", sep=""))
  p1 <- ggplot(iris, aes(x=Sepal.Width, y=Sepal.Length)) +
    geom_point(aes(color=Species), size=3) +
    scale_color_brewer(palette = "Set2")
  print(p1)   ## 添加p1 print操作
  dev.off()}

以上,使用ggplot2循环保存pdf时需要注意这一点,The file is successfully saved.