r - R中的点和线图例

Question

我有两组数据 (x1, y1) 和 (x1, y2)。我对每个集合进行了回归，并希望将它们绘制在同一个图上(同时包含点和回归线)。这是我的代码

x1 <- 1:5
y1 <- x1 + rnorm(x1)
y2 <- x1 + 2 + rnorm(x1)
fit1 <- lm(y1 ~ x1)
fit2 <- lm(y2 ~ x1)
plot(x1, y1, pch = 1, ylim = c(min(y1, y2), max(y1, y2)), xlab = "x", ylab = "y")
points(x1, y2, pch = 2)
abline(fit1, lty = 1)
abline(fit2, lty = 2)
legend("topleft", legend = c("Line 1", "Line 2"), pch = c(1, 2), lty = c(1, 2))

这就是我得到的。



我在图例中真正想要的是将点和线并排而不是彼此重叠，这应该是这样的。



任何建议都非常感谢!

Answer 1

我认为你可以这样做:

legend('topright',c('','name'),lty=c(1,NA),pch=c(NA,'X'),bg='white',ncol=2)

间距可能有点尴尬，但它使行和符号分开。如果您打算在图例中使用多个线符号对，请确保将其设置为例如 lty=c(1,2,3,NA,NA,NA) .