Base R绘图中图例位置受初始窗口大小影响，如何固定位置？

我发现Base R绘图中的图例位置会随绘图窗口的拉伸调整而改变。以下是示例代码：

u1=seq(0,1,0.01); v1=(-u1)*sin(2*pi*u1)
u2=seq(0,1,0.01); v2=exp(-u2)*cos(2*pi*u2)

plot(u1, v1, type="l")
lines(u2, v2, col=2, lty=2)
legend("topright", c("line 1", "line 2"), lty=1:2, col=1:2)

当初始绘图窗口大小不同时，即使后续放大到相同尺寸，图例在绘图中所占比例和相对位置也会变化，导致无法复现完全一致的绘图。

解决方法 #

1. 用绝对坐标定位图例 #

放弃"topright"这类相对位置关键词，通过legend()的x和y参数直接指定图例在数据坐标系中的绝对位置，让图例绑定到数据而非窗口。

示例：

plot(u1, v1, type="l")
lines(u2, v2, col=2, lty=2)
# 基于当前数据的x范围(0-1)、y范围(-1~1)，直接指定坐标
legend(x=0.8, y=0.9, c("line 1", "line 2"), lty=1:2, col=1:2)

2. 固定相对偏移比例 #

如果仍想用"topright"这类位置关键词，搭配inset参数指定图例与边缘的相对偏移比例（范围0-1，对应绘图区域的宽度/高度占比），固定偏移量而非自适应窗口。

示例：

plot(u1, v1, type="l")
lines(u2, v2, col=2, lty=2)
# 离右边缘、上边缘各留5%的距离
legend("topright", c("line 1", "line 2"), lty=1:2, col=1:2, inset=c(0.05, 0.05))

3. 预先固定绘图窗口尺寸 #

直接指定输出设备的固定尺寸，从根源避免窗口拉伸的影响：

方法A：用图形设备函数生成固定尺寸文件

# 生成800*600像素的PNG图片
png("fixed_plot.png", width=800, height=600)
plot(u1, v1, type="l")
lines(u2, v2, col=2, lty=2)
legend("topright", c("line 1", "line 2"), lty=1:2, col=1:2)
dev.off()

生成的图片尺寸完全固定，图例位置不会变化。

方法B：RStudio中锁定绘图窗口

点击绘图窗口右上角的「Zoom」，调整窗口到目标尺寸后勾选「Lock Aspect Ratio」，后续绘图都会基于该固定尺寸生成。

4. 固定绘图边距 #

通过par()的mai或mar参数设置固定的绘图边距，确保图例的可用空间一致：

# 设置固定边距（单位：英寸，顺序为下、左、上、右）
par(mai=c(1, 1, 0.5, 0.5))
plot(u1, v1, type="l")
lines(u2, v2, col=2, lty=2)
legend("topright", c("line 1", "line 2"), lty=1:2, col=1:2)

内容的提问来源于stack exchange，提问作者Miles N.