No se puede imprimir gráficos ggplot pdf

Question

Duplicar posibles:
Generate multiple graphics from within an R function

Muy extraño lo que me pasa: el siguiente código no se imprime al dispositivo pdf:

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

no imprimirá nada en pdf, aunque se haya generado un archivo pdf. Sin embargo,

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

funcionarán perfectamente. ¿Alguna idea de por qué? Reproducido en R 2.11.1.

Answer 1

Gappy, huele como FAQ 7.22 - así que intente print(qplot(1:10)).

Answer 2

@Dirk explica por qué ocurre esto (impresión automática desactivada), pero una alternativa para abrir el dispositivo, generar la trama en el dispositivo, cerrar el dispositivo es ggsave(). Por ejemplo:

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

o por medio de un bucle:

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

Al final de que tenemos todas las parcelas generadas pedimos.

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