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)

R pdf（）函数内的用法（）

1 个答案: