如何按因子計算線的斜率

Question

我不知道如何逐個獲得一條線的斜率。 以下是我的數據；

ID  x   y
1   2.43136376  0.38584994
1   2.68124124  0.42833589
1   2.35218252  0.37147102
1   2.51851394  0.40114436
1   2.38021124  0.3766155
1   2.62324929  0.41883956
1   2.97543181  0.47355
1   1.60205999  0.20467877
1   2.97772361  0.47388438
4   2.79934055  0.44705574
4   2.8920946   0.46121249
4   2.76715587  0.44203362
4   2.88366144  0.45994427
4   2.65321251  0.42377204
4   2.07918125  0.31789235
4   2.88081359  0.45951516
4   2.07918125  0.31789235
4   2.64345268  0.42217154
4   2.43136376  0.38584994
4   2.51188336  0.39999947
4   2.81954394  0.45017887
4   2.11394335  0.32509335

ID1 和 ID4 的斜率分別為 5.10 和 5.65。

你們都知道如何有效地計算和提取直線的斜率嗎？

Answer 1

也許你可以使用lm

slopes <- sapply(split(df,df$ID), function(v) lm(x~y,v)$coefficients["y"])

這樣

> slopes
     1.y      4.y 
5.099948 5.650415