Question

我需要制作一堆单独的图并希望在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)
}

情节不适用于循环

2 个答案: