使用 lapply 时如何删除第一个空白页?

How to remove first blank page when lapply is used?

我有一个简单的问题。当我们想删除单个绘图的第一个空白页时,我们设置

pdf("abc.pdf", onefile=FALSE)

然而,当我们使用 lapply 绘图时,设置 onefile=FALSE 将只打印最后一个绘图。

我想知道我们如何解决这个问题?谢谢!

当我在 Linux 盒子 运行 R 4.0.4 上尝试此代码时,它生成了五个一页的 pdf 文件:

for(i in 1:5){ pdf(file=paste0("x",i, '.pdf')); plot(1,1); dev.off()}

如果这对您的设置没有成功,那么您需要更好地描述它。

然后我尝试了完整性:

lapply(1:5, function(y){pdf(file=paste0("xx",y, '.pdf')); plot(1,1); dev.off() })
# same results