从数据点到回归（使用残差？）的输入距离到新的数据框列
Input distance from data point to regression (using residuals?) into a new dataframe column
我希望能够根据我对该图的线性回归来计算我图上每个单独数据点的距离，然后将这些距离作为新变量（列）存储在我的原始数据框中。基于 this answer，可以使用线性回归的残差找到该距离值。但是，我不知道如何将其应用于每个单独的点，我也不知道如何将值存储在数据框中（如果可能的话）。
我创建了一些示例数据...
ex.age <- c(50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70)
ex.score <- c(10,9,9,10,8,7,9,6,8,7,6,8,6,5,6,4,5,6,3,5,3)
ex.df <- data.frame(ex.age,ex.score)
绘图时，它看起来像这样...
然后我希望能够计算每个点到回归线的距离，然后将其存储在新列中，ex.df$reg.dev。
我怎样才能做到这一点？
谢谢。
您需要做的就是从 lm() 中获取残差。
ex.age <- c(50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70)
ex.score <- c(10,9,9,10,8,7,9,6,8,7,6,8,6,5,6,4,5,6,3,5,3)
ex.df <- data.frame(ex.age,ex.score)
ex_model <- lm(ex.score ~ ex.age, data = ex.df)
ex.df$reg.dev <- ex_model$residuals
ex.age <- c(50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70)
ex.score <- c(10,9,9,10,8,7,9,6,8,7,6,8,6,5,6,4,5,6,3,5,3)
ex.df <- data.frame(ex.age,ex.score)
linear_model <- lm(ex.score ~ ex.age, data = ex.df)
ex.df$reg.dev <- linear_model$residuals
ex.df
我希望能够根据我对该图的线性回归来计算我图上每个单独数据点的距离，然后将这些距离作为新变量（列）存储在我的原始数据框中。基于 this answer，可以使用线性回归的残差找到该距离值。但是，我不知道如何将其应用于每个单独的点，我也不知道如何将值存储在数据框中（如果可能的话）。
我创建了一些示例数据...
ex.age <- c(50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70)
ex.score <- c(10,9,9,10,8,7,9,6,8,7,6,8,6,5,6,4,5,6,3,5,3)
ex.df <- data.frame(ex.age,ex.score)
绘图时，它看起来像这样...
然后我希望能够计算每个点到回归线的距离，然后将其存储在新列中，ex.df$reg.dev。
我怎样才能做到这一点？
谢谢。
您需要做的就是从 lm() 中获取残差。
ex.age <- c(50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70)
ex.score <- c(10,9,9,10,8,7,9,6,8,7,6,8,6,5,6,4,5,6,3,5,3)
ex.df <- data.frame(ex.age,ex.score)
ex_model <- lm(ex.score ~ ex.age, data = ex.df)
ex.df$reg.dev <- ex_model$residuals
ex.age <- c(50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70)
ex.score <- c(10,9,9,10,8,7,9,6,8,7,6,8,6,5,6,4,5,6,3,5,3)
ex.df <- data.frame(ex.age,ex.score)
linear_model <- lm(ex.score ~ ex.age, data = ex.df)
ex.df$reg.dev <- linear_model$residuals
ex.df