所以我有一个函数，它可以将6个图形生成为一个图像，然后我有24个图像（都是不同的图形），我想知道是否有一种方法可以将所有这些图像导出到一个大的PDF文件中。
下面是我当前获取这些图的代码：eemgraphs 3〈-eem概览图（eem列表3，物种=6，等值线=真）
目前我使用以下代码分别查看每一个：电子照片3 [2]电子照片3 [3]
等等直到我找到最后一个数据点。
如果我可以潜在地编译成一个pdf文件，然后我认为这将保存大量的时间，但我不知道如何做到这一点。谢谢您的帮助！
我已经尝试了这些功能，我发现网上解决这个问题，但没有结果出来。

pdf("eemgraphs3.pdf")
eemgraphs3[1:24]
dev.off()

install.packages("ply")
library("ply")
pdf("plots.pdf", width = 7, height = 7)
d_ply(eemgraphs3, .(z), failwith(NA, function(x){plot(x$y,main=unique(z))}), .print=TRUE)
dev.off()