R 图形 : output to several file formats

Question

在许多脚本中，我首先在屏幕上开发一个图形，然后需要将其保存为具有特定高度/宽度/分辨率的多种文件格式。使用 png() , pdf() , svg() , ... 打开设备，然后 dev.off()要关闭它，我不得不将所有设备打开调用放入我的脚本中，然后将它们注释掉并一次在一台设备上重新运行代码。

我知道对于 ggplot 图形，ggsave()使这更容易。
我可以做些什么来简化 base-R 和 格子图形？

一个例子:

png(filename="myplot.png", width=6, height=5, res=300, units="in")
# svg(filename="myplot.svg", width=6, height=5)
# pdf(filename="myplot.pdf", width=6, height=5)

op <- par()  # set graphics parameters
plot()       # do the plot
par(op)
dev.off() 

Answer 1

图形设备是 grDevices 包的一部分。 documentation使用多个开放设备可能值得一读。据我了解，存储了一个圆形的开放设备阵列，但只有当前设备处于事件状态。出于这个原因，打开所有需要的设备，然后用 dev.list() 循环遍历它们。可能是你最好的选择。

# data for sample plot
x <- 1:5
y <- 5:1

# open devices
svg(filename="myplot.svg", width=6, height=5)
png(filename="myplot.png", width=6, height=5, res=300, units="in")
pdf()

# devices assigned an index that can be used to call them
dev.list()
svg png pdf 
  2   3   4 

# loop through devices, not sure how to do this without calling plot() each time
# only dev.cur turned off and dev.next becomes dev.cur
for(d in dev.list()){plot(x,y); dev.off()} 

# check that graphics device has returned to default null device
dev.cur()
null device 
      1 
dev.list()
NULL

file.exists("myplot.svg")
[1] TRUE
file.exists("myplot.png")
[1] TRUE
file.exists("Rplots.pdf") # default name since none specified in creating pdf device
[1] TRUE

您可以使用文档中的更多内容。