如何计算 R 中的简单线性回归公式？

Question

我有这个数据：

x <- c(1,3,5,8,9,0)
y <- c(5,8,9,7,4,3)
xy <- data.frame(X = x, Y = y)

我用这段代码绘制了简单的线性回归线：

library(ggplot2)
MyRegression <- ggplot(xy, aes(x = x, y = y))
MyRegression + geom_point() + geom_smooth(method='lm')

我也想自动拥有方程式y=a+bx的类型。 我知道如何计算a和b （通过使用这个公式），但我想知道我是否可以使用一个简单的命令自动完成。

提前致谢！

Answer 1

要计算线性 model，请使用 R 函数lm 。

mod <- lm(Y~X,data=xy)

现在您要计算拟合线。 这可以通过

lineData <- data.frame(x=xy$X,y=mod$coefficients[1]+mod$coefficients[2]*xy$X)

您可以使用geom_line添加该行：

ggplot(xy, aes(x = x, y = y)) + geom_point() + geom_line(data=lineData,mapping = aes(x=x,y=y),col="red",size=2)