r - 打印到由函数创建的绘图设备

Question

我想打开并命名 pdf使用函数绘制设备；在调用设备打开函数的级别绘制它；然后使用 dev.off() 关闭它在该级别给出的命令——这在 R 中是否可行？ ?

背景

我打印到 pdf从 R 定期，因此做了很多:

pdf(file.path(plotPATH, pdfName), width = Wwidth, height = Hheight)
plot( ...)
dev.off()

为了促进懒惰，我做了一个功能来打开绘图设备并保存 pdf(file.path(plotPATH ...))样板。

我创建的函数是:

pdfMk <- function(pdfName, Wwidth = 480, Hheight = 480) 
{ 
    pdf(file.path(plotPATH, pdfName), width = Wwidth, height = Hheight)
}

我想调用如下:

pdfMk("foo.pdf")
plot(...)
dev.off()

问题是这不起作用……输出是 pdf使用适当的名称并在适当的位置，但它始终是空白的。

我想我的闭包(或其他东西)可能有问题，所以我尝试单步执行 pdfMk功能与 debug并在函数调用结束之前创建绘图，但输出仍然是空白的 pdf(两种情况下都没有错误消息)。

这可能吗？如果是这样，我如何才能实现我的目标？

Answer 1

您的代码按预期工作，但默认值除外。

来自 ?pdf :

width, height: the width and height of the graphics region in inches. The default values are 7.

您正在创建大小为 40 x 40 英尺的文档。