在R中如何调整par()参数使PDF绘图元素精准定位Letter纸指定位置？

我用R语言在8.5×11英寸的Letter尺寸纸张上创建绘图，要求元素位置精确，比如让一个点位于距页面左侧0.25英寸、距顶部0.75英寸的位置。但保存为PDF后，点的位置接近预期却存在微小偏差。

所用代码 #

pdf(file = "H:/temp/plots/demo.pdf", paper = 'letter', width=8.5, height = 11,
    pagecentre = FALSE)
par(mar = c(0,0,0,0))
par(mai = c(0,0,0,0))
par(mgp = c(0,0,0))
par(oma = c(0,0,0,0))
par(omi = c(0,0,0,0))
par(pin = c(8.5, 11))
par(xaxs = 'i')
par(yaxs = 'i')
par(xpd=TRUE)
par(pty='m')
plot(x=.25, y=10.75, type = 'p', ylab="", yaxt="n", bty="n",
     xlab="", xaxt = "n",
     xlim = c(0,8.5), ylim = c(0,11))
    lines(x=c(.25,.25), y=c(0,11))
    lines(x=c(0,8.5), y=c(10.75,10.75))
dev.off()

问题现象 #

代码生成的绘图包含一条竖线、一条水平线和一个点，三者本该在距左侧0.25英寸、距顶部0.75英寸处交汇，但放大后能看到线条和点仍有几分之一英寸的偏差。

解决方法 #

出现偏差的核心原因是R基础绘图系统的默认初始化逻辑——即便设置了所有边距为0，plot()函数仍可能引入隐性的微小偏移，加上PDF设备的坐标映射需要更精准的校准。可以按以下方式调整：

1. 简化边距设置
   不需要同时设置mar和mai（二者都是边距参数，mai以英寸为单位，更适合精确控制），也无需手动指定pin，让绘图区域自动适配页面尺寸即可。

2. 强制坐标严格对齐
   保留pagecentre = FALSE确保页面不居中，同时用xaxs='i'和yaxs='i'严格使用设定的坐标轴范围，避免R自动添加额外空白。

3. 用plot.window精确初始化绘图区域
   跳过plot()函数的默认初始化逻辑，先创建空白绘图框架，再用plot.window直接定义坐标范围，彻底消除隐性偏移。

调整后的代码：

pdf(file = "H:/temp/plots/demo.pdf", paper = 'letter', width=8.5, height=11, pagecentre=FALSE)
# 仅保留必要的参数：边距设为0，坐标轴严格匹配范围，允许元素超出绘图区域
par(mai = c(0,0,0,0), xaxs='i', yaxs='i', xpd=TRUE, pty='m')
# 创建空白绘图框架（仅用于初始化设备）
plot(0, 0, type='n', xlab='', ylab='', xaxt='n', yaxt='n', bty='n',
     xlim=c(0,8.5), ylim=c(0,11))
# 精确设置绘图窗口坐标，确保和页面完全重合
plot.window(xlim=c(0,8.5), ylim=c(0,11))
# 添加目标元素
points(x=.25, y=10.75, pch=16)
lines(x=c(.25,.25), y=c(0,11))
lines(x=c(0,8.5), y=c(10.75,10.75))
dev.off()

4. 验证精度
   用PDF阅读器的测量工具（比如Adobe Acrobat的测量功能）检查点的位置，确认是否符合预期。另外要注意：R基础绘图的y轴默认向上递增，页面顶部对应y=11，所以y=10.75确实是距顶部0.75英寸，这个逻辑是正确的。

内容的提问来源于stack exchange，提问作者loggoss