如何將來自多個 lm 對象的系數附加到數據框中？

Question

我有一個包含 192 個數據框的列表，每個數據框包含幾個變量。 我的目標是對列表中的每個數據框運行回歸並提取截距和 beta 並將它們附加到一個新的數據框中，所以我將有一個包含 192 行和一列截距和幾列 beta 的數據框.

我可以運行的唯一方法如下：

    # list with 192 lm objects #
    reg_list = list() 

    # loop for running regressions and adding the results into the list #
    for(i in 1:length(df)){  
    reg_list[[i]]= lm(x1 ~ x2 + x3 ,data=df[[i]])
    }

# "df" is the list with the 192 data frames #

這里的問題是我必須用另一個過程從這個新列表中提取系數，所以我正在尋找一種方法來將系數直接附加到同一循環中的數據幀中。

在此先感謝您的幫助

Answer 1

這將執行給出列表reg的回歸，然后創建一個系數矩陣，其中第 i 列包含第 i 組系數。 anscombe是 R 附帶的數據框，其中包含 x1、x2、x3 等作為列名。

dfs <- list(anscombe, anscombe) # list of data frames
reg <- lapply(dfs, lm, formula = x1 ~ x2 + x3)
sapply(reg, coef)