绘图在 for 循环中不起作用 [重复]

Question

这个问题在这里已经有了答案：

从 R 函数中生成多个图形1 个答案

2年前关闭。

我需要制作一堆单独的图，并希望在 for 循环中完成此操作。 我正在使用ggplot2。 如果它可以将每个图形保存在单独的文件中，我只会使用 facet 选项，我认为它做不到。

由于绘图未保存到文件中，因此发生了一些事情。 但是，这些文件已生成，但为空。 这是我的代码的样子：

for(i in 1:15) {    
pdf(paste("path/plot", i, ".pdf", sep=""), width=4, height=4)

abc <- ggplot(data[data[,3]==i,], 
              aes(variable, value, group=Name, color=Name)) + 
  geom_point(alpha=.6, size=3)+geom_line() + 
  theme(legend.position="none", axis.text.x = element_text(angle = -330)) + 
  geom_text(aes(label=Name),hjust=0, vjust=0, size=2.5) + 
  ggtitle("Title")

abc

dev.off()
}

如何将绘图保存到这些文件中？

请注意，如果我有一个数值并且我在 for 循环中运行代码，那么一切正常。

Answer 1

当我使用print时，它可以工作：

for(i in 1:15) {   
  pdf(paste("plot", i, ".pdf", sep=""), width=4, height=4)
  abc <- ggplot(mtcars, aes(cyl, disp)) + 
    geom_point(alpha=.6, size=3)
  print(abc)
  dev.off()
}

Answer 2

或者试试ggsave：

for(i in 1:15) {   
Filename <- paste("plot", i, ".pdf", sep="")
abc <- ggplot(mtcars, aes(cyl, disp)) + 
    geom_point(alpha=.6, size=3)
ggsave(filename = Filename, abc, width=4, height=4)
}