r - 计算数据框所有子集的系数

Question

我想分别计算数据框中每个人的体重和时间的相关系数。数据框由大约 40 个个体组成，每个个体的观察值不超过 10 个。我已经能够单独计算个人的系数，但不能让 R 一次性完成。

我的数据看起来像这样:

id <- c(rep(1, times = 10), rep(3, times = 10), rep(4, times = 10))
time <- c(1,2,3,4,5,6,7,8,9,10)
weight <- runif(30, min = 50, max = 100)
dataframe <- data.frame(id, time, weight)

我已经成功地使用这个函数计算了单独个体的系数:

coef(lm(weight~time, data = dataframe))[2]

我试过 for-loops , aggregate和 apply ，但无法弄清楚如何一次性计算所有个体的系数并将输出存储为向量。

Answer 1

按 id 分割，然后循环并获得 coef:

sapply(split(dataframe, dataframe$id), function(i) coef(lm(weight ~ time, data = i))[2])
#     1.time      3.time      4.time 
# 1.48800159 -0.05921987 -2.57523482