通过从带有子列表的列表中选择项目来创建一个数据框

Question

我试图通过选择具有子列表的列表中的项来创建数据框。

我的问题

我有一个包含三列（id，类型和得分）的数据框。每个ID都有两次得分不同。我想创建一个数据框，其中包含每个id（x = type和y = score）的回归系数。

我尝试过的事情 首先，我希望我可以使用aggregate（）并通过lm（）交换均值来做一些事情。但是，这没有用。然后，我设法获得了一系列系数，但是我不知道如何提取它们以形成一个以id和coef为列的数据框。那我该怎么办呢？

coef.data <- aggregate(stress_score ~ uid, stress.survey.data, lm(stress_score ~ type,
                                       data = df))

coef.data <- lapply(split(df, df$uid), function(x) lm(stress_score ~ type,
                                       data = df))

Ps：我对r还比较陌生；）