如何在带有警告的for循环中绘制多个图？

Question

我的代码的结构（仅作为示例）基本上是这样的：

xs <- c("a","b")
for(x in xs)
{
png(filename = paste(x,".png",sep="")
ggplot()
dev.off()
}

当我仅在循环内单独运行代码时，它会完美地生成png文件，但是在Rstudio中它有一些警告。但是当我一起运行整个循环时，png文件变成空白。仅仅使用options(warn=-1)来抑制警告并没有帮助。

我该怎么做才能抑制警告并使循环生效？

Answer 1

您可以尝试：

xs <- c("a","b")
for(x in xs)
{
p <- ggplot()
ggsave(p,file=paste(x,".png",sep=""))

}