řPDF（）的用法（

Question

我中的R一些代碼，生成一個多pdf文件：）

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（僅僅是解析必要的數據，然後一個函數使用ggplot來創建圖形

上述工作就好了。但是，當我將此代碼放入函數中時，不會生成任何圖並且不能讀取/打開PDF輸出。

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

當一個功能，你需要調用print()功能實際上畫在畫布上，就像這樣：

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)