R中使用tidyverse的purrr实现嵌套循环：遍历Excel文件及工作表

原有实现报错主要有两个原因：

• purrr公式简写的.x/.y代词仅作用于当前层级的匿名函数，内层map的代词无法访问外层迭代的参数，且未给内层传入第二个参数，导致customFunction调用时缺少第二个入参触发报错。
• 两层map默认返回嵌套列表，和预期的单层列表结构不匹配。

方案1：嵌套map + 列表拍平 #

如果偏好嵌套迭代的写法，可以通过显式命名外层变量避免作用域冲突，最后用flatten()将嵌套列表转为单层：

library(tidyverse)
library(readxl)

# 写法1：外层用普通匿名函数命名变量，避免代词混淆
output <- map(fileList, function(cur_file) {
  # 内层遍历当前文件的所有工作表
  map(excel_sheets(cur_file), ~ customFunction(.x, cur_file))
}) %>% 
  flatten() # 拍平嵌套列表，输出结构和for循环完全一致

# 写法2：全公式简写，用大括号暂存外层迭代变量
output <- map(fileList, ~ {
  cur_file <- .x
  map(excel_sheets(cur_file), ~ customFunction(.x, cur_file))
}) %>% 
  flatten()

.x/.y代词使用规则 #

• 单参数迭代的map系列函数中，公式简写的.x对应当前迭代的元素，不存在.y参数。
• 双参数迭代的map2系列函数中，.x对应第一个迭代对象的当前元素，.y对应第二个迭代对象的当前元素；3个及以上参数的迭代可以用..1/..2/..3依次对应第1/2/3个迭代参数。
• 不同层级~定义的匿名函数的代词相互独立，内层无法直接访问外层的.x/.y。

方案2：预构造文件-工作表配对表（更推荐） #

该写法逻辑更清晰，排查问题更方便，无需处理嵌套作用域问题：

# 第一步：生成所有待处理的文件和工作表的对应关系
file_sheet_pair <- tibble(
  file_path = list.files(pattern = "\\.xlsx?$") # 增加后缀筛选，避免读取非Excel文件报错
) %>% 
  mutate(sheet_name = map(file_path, excel_sheets)) %>% 
  unnest(sheet_name) # 展开为一行对应一个<文件,工作表>配对

# 第二步：单次迭代直接生成单层列表
output <- map2(file_sheet_pair$sheet_name, file_sheet_pair$file_path, customFunction)

该场景使用purrr完全合适，和for循环的对比如下：

• 若逻辑简单无特殊异常处理需求，purrr写法更简洁，无需手动维护迭代下标，可避免下标越界、赋值错误等问题。
• 若需要打印处理进度、跳过错误文件/工作表，可选择purrr的safely/progressively函数搭配使用，也可直接使用for循环，两种方案没有绝对优劣。
• 若团队成员更熟悉基础R语法，原有for循环本身逻辑正确，可读性更好，无需强行切换为purrr写法。

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