r - 绘图在 for 循环中不起作用

Question

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





Generate multiple graphics from within an R function

(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()
}