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获取截距和斜率来绘制线，它与我的第二行代码相同。因此，如果我们移动行upp 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")