不能打印到PDF ggplot图表

Question

可能重复：
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。

Answer 1

嘎皮，闻起来像FAQ 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"