无法打印到pdf ggplot图表[重复]答案

【问题标题】：Can't print to pdf ggplot charts [duplicate]无法打印到pdf ggplot图表[重复]
【发布时间】：2017-03-15 16:23:43
【问题描述】：

可能重复：
Generate multiple graphics from within an R function

发生在我身上的很奇怪的事情：以下代码无法打印到 pdf 设备：

outnames <- c("1.pdf", "2.pdf")
for (n in outnames){
    pdf(n)
    qplot(1:10)
    dev.off()
}

即使生成了 pdf 文件，也不会将任何内容打印到 pdf 中。然而，

pdf(outnames[2])
qplot(1:10)
dev.off()

会很好地工作。知道为什么吗？在 R 2.11.1 中重现。

【问题讨论】：

标签： r ggplot2

【解决方案1】：

Gappy，闻起来像 FAQ 7.22——所以请试试 print(qplot(1:10))。

【讨论】：

【解决方案2】：

@Dirk 解释了为什么会发生这种情况（自动打印已关闭），但打开设备、在设备上生成绘图、关闭设备的替代方法是 ggsave()。例如：

p1 <- qplot(1:10)
ggsave("p1.pdf", plot = p1)

或通过循环：

outnames <- c("1.pdf", "2.pdf")
for (n in outnames){
    p2 <- qplot(1:10)
    ggsave(n, plot = p2)
}

最后，我们得到了我们要求的所有生成图。

> list.files(pattern = ".pdf$")
[1] "1.pdf"                  "2.pdf"                 
[3] "p1.pdf"

【讨论】：