图例与底数 r 中的图重叠

Question

嗨，我试图让图例不与我的情节重叠，但我在 stackoverflow 上找到的解决方案现在似乎不起作用，使用以下随机数据

par(mar = c(3,1,1,1))
plot(1:3, rnorm(3), pch=1, lty=1, type="o", ylim=c(-2,2))
legend("bottom", legend = c("a","b"), horiz=T,
       bty = "n", pch=15 , col= c("green","red"), text.col = "black", 
       cex=1, pt.cex=1,xpd=T)

因此，即使我有xpd = T参数并且我也尝试输入inset=c(0,-0.5)参数，该图的图例与图重叠，但图例随后消失（甚至看不到它）所以我想知道代码有什么问题以及如何使图例不重叠，非常感谢！

Answer 1

您可能需要添加par(xpd=TRUE)以启用在图形外部绘制并为 x 和插图添加“底部”。 您可以使用以下代码：

par(mar = c(3,1,1,1))
plot(1:3, rnorm(3), pch=1, lty=1, type="o", ylim=c(-2,2))
par(xpd = TRUE)
legend(x="bottom", inset=-0.15, legend = c("a","b"), horiz=T,
       bty = "n", pch=15 , col= c("green","red"), text.col = "black", 
       cex=1, pt.cex=1)

^{由reprex 包（v2.0.1）于 2022-07-23 创建}