列表中数据框逐行求和新增列：for循环函数失效问题

你写的函数没生效有两个核心问题：

1. 局部副本修改无效：循环里的df <- df_list[[i]]只是把列表中的数据框复制了一份到函数内部的局部变量df中，你修改的是这个副本，原列表里的数据框完全没被改动。
2. 无返回结果：函数最后没有返回修改后的列表，调用后外部环境拿不到任何更新后的内容。

方案1：修正原循环逻辑 #

直接操作列表里的元素，跳过副本步骤，并返回更新后的列表：

timepoint_scores <- function(df_list) {
  for (i in 1:length(df_list)) {
    df_list[[i]]$total_score <- apply(df_list[[i]], 1, sum)
  }
  return(df_list)
}

方案2：用lapply更简洁高效（推荐） #

R处理列表类数据首选lapply，代码更简洁；同时用rowSums替代apply(df,1,sum)，它是专门针对行求和优化的函数，效率更高：

timepoint_scores <- function(df_list) {
  lapply(df_list, function(df) {
    df$total_score <- rowSums(df)
    df
  })
}

调用函数后必须把结果赋值给变量，才能拿到更新后的列表：

# 假设你的原始数据框列表叫my_df_list
updated_df_list <- timepoint_scores(my_df_list)

内容的提问来源于stack exchange，提问作者Sage McGinley