r - 只需调用一次 R 中的绘图函数，即可将绘图保存为 PNG 和 PDF

Question

我想要一个 pdf 和 png 格式的图:

pdf("test.pdf")
plot(sin, -pi, 2*pi)
dev.off()

png("test.png")
plot(sin, -pi, 2*pi)
dev.off()

但是，我正在寻找一个技巧(最好不是通过加载新包)，其中 plot 函数只被调用一次:

#no plot in pdf!
pdf("test1.pdf"); png("test1.png")
plot(sin, -pi, 2*pi)
dev.off(); dev.off()

如有任何建议，我们将不胜感激。

Answer 1

您可以根据自己的目的使用 dev.copy()。例如:

pdf("test.pdf")
a<-dev.cur()
png("test.png")
dev.control("enable")
plot(sin, -pi, 2*pi)
dev.copy(which=a)
dev.off()
dev.off()

您通过 dev.cur 记录了 pdf 设备，然后将绘图从 png 设备复制到 pdf 一个。