Создание одного фрейма данных из выбора элементов из списка с подсписками

Question

Я пытаюсь создать фрейм данных из выбора элементов из списка, который имеет подсписок.

Моя проблема

У меня есть фрейм данных с тремя столбцами (идентификатор, тип и оценка). Каждый идентификатор существует дважды с разными оценками. Я хочу создать фрейм данных, содержащий коэффициент регрессии для каждого идентификатора (x = тип и y = оценка).

То, что я пробовал Сначала я надеялся, что смогу что-то сделать, используя aggregate () и обменивая mean на 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;)