Không thể in ra bảng xếp hạng ggplot pdf

Question

thể trùng lặp:
Generate multiple graphics from within an R function

Rất lạ điều xảy ra với tôi: đoạn mã sau thất bại trong việc in tới thiết bị pdf:

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

sẽ không in bất kỳ thứ gì vào pdf, mặc dù tệp pdf được tạo. Tuy nhiên,

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

sẽ hoạt động hoàn hảo. Bất kỳ ý tưởng tại sao? Được sao chép trong R 2.11.1.

Answer 1

Rất vui, có mùi như FAQ 7.22 - vì vậy hãy thử print(qplot(1:10)).

Answer 2

@Dirk giải thích lý do tại sao điều này xảy ra (tự động in bị tắt), nhưng thay thế để mở thiết bị, tạo cốt truyện trên thiết bị, đóng thiết bị là ggsave(). Ví dụ:

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

hoặc thông qua một vòng lặp:

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

Vào cuối mà chúng tôi có tất cả các lô được tạo ra, chúng tôi yêu cầu.

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