如何在R语言中对列表内数据框元素批量应用函数并返回数据框

原代码存在三个核心问题：

1. my_list结构冗余多一层嵌套，且取mean(x)时误对summary的所有统计值求平均，而非目标变量的均值；
2. 双重循环逻辑错误，导致分组处理结果被重复覆盖；
3. 未将mapply返回的列表转换为数据框，无法匹配list_split的结构。

修正步骤 #

1. 简化分组统计结果的生成

先重新生成与list_split结构完全对应的变量统计列表（若你的逻辑是基于变量自身均值，可跳过此步）：

Name <- c('Peter','Peter','Peter', 'Ben','Ben','Ben','Mary', 'Mary', 'Mary')
var1 <- c(0.4, 0.6, 0.7, 0.3, 0.9, 0.2, 0.4, 0.6, 0.7)
var2 <- c(0.5, 0.4, 0.2, 0.5, 0.4, 0.2, 0.1, 0.4, 0.2)
var3 <- c(0.2, 0.6, 0.9, 0.5, 0.5, 0.2, 0.5, 0.5, 0.2)
df <- data.frame(Name, var1, var2, var3)

# 按Name拆分数据框
list_split <- split(df[,2:4], df$Name)

# 生成每个分组下各变量的summary统计，结构与list_split一一对应
my_list <- lapply(list_split, function(group_df) {
  lapply(group_df, summary)
})

2. 修正自定义函数与分组处理逻辑

根据你的示例逻辑（基于summary中的均值判断，若大于0.9则取差值，否则保留原值），重新编写处理代码：

# 自定义函数：x为变量的summary结果，y为变量原始向量
fun <- function(x, y) {
  # 提取summary中的均值项进行判断
  if (as.numeric(x["Mean"]) > 0.9) {
    diff(y)
  } else {
    y
  }
}

# 初始化结果列表，保留原分组名称
result_list <- vector("list", length(list_split))
names(result_list) <- names(list_split)

# 遍历每个分组处理
for (group_name in names(list_split)) {
  # 对当前分组的所有变量应用函数，将结果转为数据框
  processed_group <- as.data.frame(
    mapply(fun, my_list[[group_name]], list_split[[group_name]], SIMPLIFY = FALSE)
  )
  result_list[[group_name]] <- processed_group
}

3. 若逻辑基于变量自身均值的简化版本

如果你的判断逻辑是直接用变量的均值（而非summary中的均值），可省略my_list，直接处理：

# 简化版自定义函数，仅需变量原始向量
fun_simple <- function(y) {
  if (mean(y) > 0.9) {
    diff(y)
  } else {
    y
  }
}

# 直接遍历每个分组，对所有变量应用函数并转为数据框
result_list <- lapply(list_split, function(group_df) {
  as.data.frame(lapply(group_df, fun_simple))
})

验证结果 #

处理后result_list的结构与list_split完全一致，每个元素都是对应分组的数据框，例如查看Ben的分组：

result_list[["Ben"]]

会输出完整的变量处理结果，而非仅第一个值。

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