r - 同时创建 pdf 和 png

Question

R 中有没有办法同时创建 png 和 pdf 而不必运行相同的代码两次？我希望生成一些图形的光栅和矢量版本，而无需进行外部转换，并且如果可能的话也无需重新运行代码。 dev.copy2pdf 听起来像是我需要的，但它似乎只适用于交互式设备。

这是我正在做的事情的示例:

pdf("temp.pdf")
plot(1:10)
#more drawing here
dev.off()

png("temp.png")
plot(1:10)
#more drawing here
dev.off()

我想缩短为:

start()
plot(1:10)
#more drawing here
saveToPDF()
saveToPNG()

Answer 1

有一个现有的函数dev.copy2pdf()，它的作用正如它所说的那样。还有一个函数 dev.print()，它看起来可以使复制到 "*.png" 文件变得容易，但是根据我的经验，这很奇怪。

以下两个函数运行良好，并且具有统一命名以及按照与熟悉且相关的 pdf() 和 png 相同的顺序获取所有参数的额外优点() 功能:

saveToPDF <- function(...) {
    d = dev.copy(pdf,...)
    dev.off(d)
}

saveToPNG <- function(...) {
    d = dev.copy(png,...)
    dev.off(d)
}

## Try them out
plot(rnorm(99),  col="red")
saveToPDF("my.pdf", height=4,width=7)
saveToPNG("my.png", height=600, width=400)