添加两个在点和线上有问题的回归图

Question

我哪儿也找不到答案。我从两个不同的数据集中有两条回归线。我试图把这两条回归线放在一张图中。下面的工作进行得很好。

regression1<-lm(Y ~ X, data = mydata1) 
regression2<-lm(Y ~ X, data = mydata2)
abline(regression1)
abline(regression2)

然而，在这个情节中，我只是有线条，我没有圆点。我跑：

regression1<-lm(Y ~ X, data = mydata1)
regression2<-lm(Y ~ X, data = mydata2)
plot(c(0,2),c(0,2),type="n") +
points(rnorm(200), rnorm(200), col = "red") 
abline(regression1) 
abline(regression2)

有了这个命令，我只有点，我没有行，仍然对我不起作用。我想要的是有一个图，有两个不同的线(代表每个回归的拟合线)和点的这些回归。我想要不同颜色的。任何帮助都将不胜感激。谢谢

Answer 1

当使用基本的R图形，你画了一些东西，但它没有显示在图表中，很可能你已经在绘图区域之外绘制了它。在下面的示例中，通过首先获得适当的x和y轴限制，我将确保所有内容都在绘图区域。

前两行代码就能做到这一点。

rangeX <- range(c(mydata1$X, mydata2$X))
rangeY <- range(c(mydata1$Y, mydata2$Y))

regression1 <- lm(Y ~ X, data = mydata1)
regression2 <- lm(Y ~ X, data = mydata2)
plot(rangeX, rangeY, type = "n", xlab = "X", ylab = "Y")
with(mydata1, points(X, Y, col = "red"))
with(mydata2, points(X, Y, col = "blue"))
abline(regression1, col = "red")
abline(regression2, col = "blue")

​

​

数据创建代码.

set.seed(1234)

n <- 20
x <- seq_len(n) + rnorm(n)
mydata1 <- data.frame(X = x, Y = x + rnorm(n))
x <- seq_len(n) + rnorm(n)
mu <- 3
mydata2 <- data.frame(X = x + rnorm(n), Y = mu + x + rnorm(n))