r - 保存重复功能生成的图

Question

目前我正在寻找一种将 72 个图保存到 PDF 文件的解决方案。这 72 个图是通过 afunction和以下代码创建的repeat。

ID 代表我的数据集中的一个人。此人的 ID 附加了多行数据。要去找下一个人，我使用 ID = ID + 1

使用下面的代码，我设法创建了一个 PDF 文件，但这是一个 72 页的 PDF 文件。我想每行有 4 个地块。nrow = 4 的概念就像您在 grid.arrange 中使用的一样。最好每行 4 个，每页 24 个。

pdf("plot1.pdf")
 repeat {
  ID = ID + 1
  print(ggplot(ID))
  if (ID == 72){
    break}}
dev.off()

Answer 1

我仍然不确定这是否是一个合法的解决方案，但至少它现在已修复！

显然我正在寻找这样的解决方案：

plot.list <- list()
for(i in 1:72){
  plot.list[[length(plot.list) + 1]] <- plot_utility(i)
}

grid1 <- grid.arrange(grobs = plot.list, ncol = 4)

ggsave("plot1.pdf", 
       plot = grid1, 
       device = "pdf", 
       scale = 2,
       width = 25, 
       height = 20, 
       units = c("cm")
)