R 使用abline绘制线性回归和标准偏差

Question

我可以使用abline绘制一条线性回归线：

x= runif(10)
y=runif(10)
fit1 <- lm(x ~ y )
sd2 <- sd(abs(fit1$residuals))*2
plot(x,y)
abline(fit1)

但是我如何使用abline绘制标准偏差线。我试过了：

abline(fit1+sd2)
abline(fit1-sd2)

但我收到一个错误。谢谢你的帮助。

Answer 1

> abline(fit)工作，因为它从fit接受截距和斜率来绘制线条，它与我的第二行代码相同。因此，如果我们将生产线向上移动sd2单位并向下移动sd2单位，则带有sd2的 abline 可以工作。你可以通过我的第三行和第四行来实现它。
plot(x,y) abline(fit1$coefficients[1],fit1$coefficients[2]) abline(fit1$coefficients[1]+sd2,fit1$coefficients[2]) abline(fit1$coefficients[1]-sd2,fit1$coefficients[2])

希望这个abline的解释是有帮助的。

Answer 2

您可以使用

ggplot来实现此目的：

x= runif(10)
y=runif(10)
fit1 <- lm(x ~ y )
sd2 <- sd(fit1$residuals)
library(ggplot2)
ggplot(data.frame(x,y), aes(x=x,y=y)) + 
geom_point() + 
geom_smooth(method="lm")