R pdf() l'utilizzo all'interno di una funzione()

Question

ho qualche codice R che genera un file pdf multipagina:

pdf("myplot.pdf", width=8.5, height=5) 

My.Plot(my.data, var1, var2) 
My.Plot(my.data, var3, var2) 
My.Plot(my.data, var4, var2) 

dev.off() 

My.Plot() è solo una funzione che analizza i dati necessari e poi usa ggplot per creare un grafico

Quanto sopra funziona bene. Tuttavia, quando inserisco questo codice in una funzione, non vengono generati grafici e il PDF di output non può essere letto/aperto.

generate.PDF <- function(my.data) {  
    pdf("myplot.pdf", width=8.5, height=5) 

    My.Plot(my.data, var1, var2) 
    My.Plot(my.data, var3, var2) 
    My.Plot(my.data, var4, var2) 

    dev.off() 
} 

Answer 1

Quando in una funzione, è necessario chiamare la funzione print() per dipingere in realtà sulla tela, in questo modo:

x <- runif(20,10,20) 
y <- runif(20,30,50) 
data<-data.frame(x,y) 
generate.PDF <- function(data) {  
    pdf("/home/aksel/Downloads/myplot.pdf", width=8.5, height=5,onefile=T) 
    plot1 <- plot(x,y) 
    plot2 <- plot(y,x) 
    plot3 <- plot(x,y*2) 
    print(plot1) 
    print(plot2) 
    print(plot3) 
    dev.off() 
} 
generate.PDF(data)