无法打印 pdf ggplot 图表

Question

可能的重复：
从 R 函数内生成多个图形

发生了非常奇怪的事情对我来说：以下代码无法打印到 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。

Answer 1

Gappy，闻起来像常见问题解答 7.22 - 所以请尝试 print(qplot(1:10))。

Answer 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"