如何同时在多个设备上绘图？

Question

当我绘图时，我经常绘制到 eps 文件和 png 文件，如下所示：

postscript(file=paste(dir, output, "_ggplot.eps", sep=""), onefile=FALSE, horizontal=FALSE, width=4.8, height=4.0)
# Plotting code
dev.off()

png(paste(dir, output, "_ggplot.png", sep=""), width=450, height=300)
# Plotting code
dev.off()

问题是绘图代码重复两次。是否可以指定多个设备进行绘图？

Answer 1

使用 R.devices 包，您可以执行以下操作：

library('R.devices')
library('ggplot2')

devEval(c("eps", "png"), name="myfig", tags="ggplot", sep="_", aspectRatio=1.2, {
  gg <- qplot(mpg, wt, data=mtcars, colour=cyl)
  print(gg)
})

这将生成“myfig_ggplot.eps”和“myfig_ggplot.png”。默认的 sep 是逗号，默认的输出目录是figures/。

Answer 2

ggplot(....)+(...)
ggsave("文件1.png")
ggsave("文件1.pdf")
ggsave("file1.jpg")

ggplot(....)+(...)
ggsave("文件2.png")
ggsave("文件2.pdf")
ggsave("文件2.jpg")

Answer 3

从标准用法来看，泰勒是正确的。但是，为了让生活更轻松，您可以尝试另一种方法：将绘图代码包装为函数，以便您可以包装一系列输出。这至少可以简化用于生成输出的代码。

另一种可行的可能性是通过 foreach 分叉您的流程，并且每次迭代都会生成不同类型的输出，具体取决于与迭代关联的索引。我这样做是为了并行生成很多图（虽然也许我使用了 Hadoop，但我现在不记得了）。

Answer 4

您可以使用 for 循环：

devices <- c("pdf", "png")

for (i in seq_along(devices)) {

    if (devices[i] == "png") {
    ppi <- 600
    png(file = "Plots/regression.png",
        width = 8.4 * ppi, height = 6.5 * ppi, res = ppi,
        family = "Latin Modern Roman")
    }

    if (devices[i] == "pdf") {
        cairo_pdf(file = "Plots/regression.pdf", width = 8.4, height = 6.5,
                  family = "Latin Modern Roman")
    }

    # Insert plotting code

    graphics.off()

}

Answer 5

您可以使用 dev.copy() 组合它们。例如，

  X11 ()
  plot (x,y)
  dev.copy (jpeg,filename="test.jpg");
  dev.off ();

查找 help(dev.copy) 了解更多详细信息。

Usage:

     dev.copy(device, ..., which = dev.next())
     dev.print(device = postscript, ...)
     dev.copy2eps(...)
     dev.copy2pdf(..., out.type = "pdf")
     dev.control(displaylist = c("inhibit", "enable"))

Answer 6

不，这是不可能的。至少根据 ?grDevices 的手册没有：

“详细信息：只有一个设备是“活动”设备：这是以下设备
所有图形操作都发生在其中。有一个“空设备”，它是
始终打开，但实际上是一个占位符：任何使用它的尝试都会
打开由 getOption("device")) 指定的新设备。"