在 R 中将点图保存为 pdf [重复]

当在函数内执行此命令时，我无法将点图保存为 pdf。

正常调用时效果很好：

df <- data.frame(a = runif(10), b = runif(10), c = runif(10), x = 1:10)  
pdf("test.pdf")  
dotplot(a + b + c ~ x, data = df, type = "l", auto.key=TRUE)  
dev.off()

但如果此代码位于函数内部，它将不起作用，只会生成一个空文件或空白文件：

plotFunc <- function(model)  
{  
    pdf("test.pdf")  
    dotplot(a + b + c ~ x, data = model, type = "l", auto.key=TRUE)  
    dev.off()  
}
plotFunc(df)

但是，在不使用文件命令的情况下调用该函数将成功打印到图形窗口：

plotWinFunc <- function(model)  
{  
    dotplot(a + b + c ~ x, data = model, type = "l", auto.key=TRUE)  
}  
plotWinFunc(df)

这让我相信当 dotplot() 应该输出到文件时，它出了问题。文件类型并不重要，我已经尝试过 bmp 和 pdf，但两种方法都不起作用。

如何成功地将点图写入文件？我是否必须使用lattice包中的特殊命令或者我在某个地方有错误吗？

谢谢你的帮助。

刚刚意识到我必须将点图包装在 print() 中：

plotFunc <- function(model)    
{    
    pdf("test.pdf")    
    print(dotplot(a + b + c ~ x, data = model, type = "l", auto.key=TRUE))    
    dev.off()    
}  
plotFunc(df)

这似乎已经解决了。