绘制从数据开始到数据以R结尾的最佳拟合线

Question

我正在尝试在R中的数据集中绘制一条最适合的行：

abline（LM（Y〜X））

然而，这条线一直贯穿整个图表。无论如何，我是否可以配置该行，使其仅覆盖数据点所在的区域（类似于您在Excel中获得的区域）？

非常感谢！

Answer 1

解决方案是使用lines()并对x的两个极值进行两次预测。

见这个例子：

x <- rnorm(20)
y <- 5 + 0.4*x + rnorm(20)/10
dt <- data.frame(x=x, y=y)
ols1 <- lm(y ~ x, data=dt)
nd <- data.frame(x=range(x))    ## generate new data with the two extremes of x
plot(x, y)                      ## original scatter plot
lines(nd$x, predict(ols1, newdata=nd), col='orange')  ## line from two points

我希望有所帮助。