R语言如何对多个Dataframe循环执行含管道操作符的异常值检测代码

一、高效自动构建年度数据集列表 #

不需要手动枚举所有df_1990到df_2020的对象，以下代码会自动识别全局环境中存在的年度数据集，自动跳过不存在的年份，同时给列表元素匹配对应年份名称，方便后续导出：

library(dplyr)

# 设定年份范围
year_seq <- 1990:2020
# 遍历年份读取存在的数据框
df_list <- lapply(year_seq, function(yr) {
  df_obj_name <- paste0("df_", yr)
  if (exists(df_obj_name, envir = .GlobalEnv)) {
    get(df_obj_name, envir = .GlobalEnv)
  } else {
    NULL
  }
})
# 给列表元素命名、过滤掉不存在年份的空值
names(df_list) <- paste0("df_", year_seq)
df_list <- Filter(Negate(is.null), df_list)

二、批量嵌入异常值检测管道逻辑 #

提供两种可直接运行的实现方式，处理完成后所有带Outlier列的数据集都会统一存入结果列表：

方法1：改造原有for循环框架 #

注意不要直接遍历列表元素做修改，需要按索引遍历、提前初始化结果列表存储处理后的数据，避免结果丢失：

# 初始化等长的结果列表
result_list <- vector("list", length(df_list))
names(result_list) <- names(df_list)

for (idx in seq_along(df_list)) {
  # 提取当前待处理的年度数据
  current_data <- df_list[[idx]]
  
  # 嵌入原有管道逻辑，将硬编码的df替换为当前数据对象
  processed_data <- current_data %>%
    group_by(Item) %>%
    summarise(
      outlier = mean(Cost), 
      offset = outlier * 0.6, 
      higher_value = outlier + offset, 
      lower_value = outlier - offset,
      .groups = "drop" # 消除dplyr分组残留警告，不影响计算结果
    ) %>%
    left_join(current_data, by = 'Item') %>%
    transmute(Item, Cost, Outlier = ifelse(Cost < lower_value | Cost > higher_value, 'Y', 'N'))
  
  # 存入结果列表对应位置
  result_list[[idx]] <- processed_data
}

方法2：用lapply实现更简洁的函数式遍历 #

不需要手动初始化结果列表和管理索引，代码更短不易出错：

result_list <- lapply(df_list, function(current_data) {
  current_data %>%
    group_by(Item) %>%
    summarise(
      outlier = mean(Cost), 
      offset = outlier * 0.6, 
      higher_value = outlier + offset, 
      lower_value = outlier - offset,
      .groups = "drop"
    ) %>%
    left_join(current_data, by = 'Item') %>%
    transmute(Item, Cost, Outlier = ifelse(Cost < lower_value | Cost > higher_value, 'Y', 'N'))
})

三、关键注意事项 #

• 原有管道代码中硬编码了df作为输入和连接对象，循环时必须替换为当前遍历到的数据变量，否则所有循环都会重复处理同一个测试数据框，结果完全错误。
• 构建列表时保留的年份名称会在导出Excel时自动识别为工作表名，不需要额外手动命名。
• 若需要导出为多sheet Excel，可直接运行writexl::write_xlsx(result_list, "成本异常值检测结果.xlsx")，无需逐表写入。

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