将多个样本的回归汇总输出组合到R中的单个数据帧中

result_df <- data.frame(sample_id = character(),
                        coefficient = numeric(),
                        p_value = numeric(),
                        stringsAsFactors = FALSE)

for (i in 1:length(samples)) {
  # 进行回归分析，这里假设使用lm()函数进行线性回归
  model <- lm(dependent_variable ~ independent_variable, data = samples[[i]])
  
  # 提取回归系数和p值
  coefficient <- coef(model)[2]  # 假设回归模型中只有一个自变量
  p_value <- summary(model)$coefficients[2, 4]
  
  # 将结果添加到数据框中
  result_df <- result_df %>%
    add_row(sample_id = i,
            coefficient = coefficient,
            p_value = p_value)
}