不能打印到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"