データポイントから回帰（残差？を使用）を新しいデータフレーム列に入力

Question

私のプロット上の個々のデータポイントの距離を、そのプロットの線形回帰から計算し、私の元のデータフレームの新しい変数（列）として。 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に格納します。

これをどのように達成できますか？

ありがとうございます。

Answer 1

あなたがする必要があるのは、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 

Answer 2

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