在基本图形的绘图区域之外绘制图例？

正如标题所说：使用基础图形时如何在绘图区域之外绘制图例？

我想过摆弄layout并生成一个仅包含图例的空图，但我对仅使用基本图形设施的方式感兴趣，例如，par(mar = )在图例的右侧留出一些空间来放置图例。

这里有一个例子：

plot(1:3, rnorm(3), pch = 1, lty = 1, type = "o", ylim=c(-2,2))
lines(1:3, rnorm(3), pch = 2, lty = 2, type="o")
legend(1,-1,c("group A", "group B"), pch = c(1,2), lty = c(1,2))

产生：

但如上所述，我希望图例位于绘图区域之外（例如，位于图形/图的右侧）。

没有人提到使用否定inset值legend。这是一个示例，其中图例位于图的右侧，与顶部对齐（使用关键字"topright").

# Random data to plot:
A <- data.frame(x=rnorm(100, 20, 2), y=rnorm(100, 20, 2))
B <- data.frame(x=rnorm(100, 21, 1), y=rnorm(100, 21, 1))

# Add extra space to right of plot area; change clipping to figure
par(mar=c(5.1, 4.1, 4.1, 8.1), xpd=TRUE)

# Plot both groups
plot(y ~ x, A, ylim=range(c(A$y, B$y)), xlim=range(c(A$x, B$x)), pch=1,
               main="Scatter plot of two groups")
points(y ~ x, B, pch=3)

# Add legend to top right, outside plot region
legend("topright", inset=c(-0.2,0), legend=c("A","B"), pch=c(1,3), title="Group")

第一个值是inset=c(-0.2,0)可能需要根据图例的宽度进行调整。