在 R 中将多个绘图导出为 PDF

在 R 中，我们可以使用 pdf() 函数将绘图输出为 PDF 格式。如果我们需要导出多个绘图并保存为不同的 PDF 文件，我们可以使用 for 循环或者 lapply 函数，下面给出两种实现方式。

使用 for 循环

假设我们有两个绘图需要导出，我们可以使用 for 循环实现：

for (i in 1:2) {
  pdf(file = paste0("plot", i, ".pdf"))
  plot(rnorm(10))
  dev.off()
}

在循环中，我们首先使用 pdf() 函数打开一个 PDF 文件并设置文件名，然后进行绘图，最后使用 dev.off() 函数关闭 PDF 文件。在这个例子中，我们生成了两个 PDF 文件，文件名为 "plot1.pdf" 和 "plot2.pdf"。

使用 lapply 函数

除了 for 循环，我们还可以使用 lapply() 函数来导出多个绘图。下面是使用 lapply 函数的实现方式：

plots <- list(
  plot(rnorm(10)),
  plot(runif(10)),
  plot(rbinom(10, 1, 0.5))
)

pdfs <- lapply(seq_along(plots), function(i) {
  pdf(file = paste0("plot", i, ".pdf"))
  print(plots[[i]])
  dev.off()
})

pdfs

在这个例子中，我们首先创建了一个包含三个绘图的列表对象 plots。然后，我们使用 lapply() 函数进行循环，对每个绘图使用 pdf() 和 dev.off() 函数并保存为不同的 PDF 文件。最后，我们将所有生成的 PDF 文件保存到 pdfs 变量中。

结论

无论是使用 for 循环还是 lapply 函数，我们都可以轻松地将多个绘图导出为 PDF 文件。使用 for 循环的方式更直观，而使用 lapply 函数的方式更加灵活，可以适应更多场景的需求。