如何将多个lm对象的系数附加到一个数据帧中？

# 创建一个空的数据帧
coefficients_df <- data.frame()

# 遍历每个lm对象
for (i in 1:length(lm_objects)) {
  # 获取lm对象的系数
  lm_coefficients <- coef(lm_objects[[i]])
  
  # 将系数添加到数据帧中
  coefficients_df <- rbind(coefficients_df, lm_coefficients)
}

# 可选：为数据帧添加列名
colnames(coefficients_df) <- c("lm_object1", "lm_object2", ...)  # 根据实际情况修改列名

# 打印结果
print(coefficients_df)