使用purrr::map2结合rename_with报错：the ... list contains fewer than 2 elements

错误原因 #

你遇到的报错是因为作用域混淆：在rename_with的.fn参数中使用~.y时，这里的.y指向的是rename_with传给.fn的旧列名参数，而非map2中new_names的元素。导致函数调用时参数数量不匹配，抛出错误。

解决方案 #

针对你的场景（每个数据框仅含一列），以下是几种简洁的解决方法：

方法1：直接修改列名（最直观） #

因为每个数据框只有一列，直接替换列名是最简单的方式：

library(purrr)
library(dplyr)

new_names <- c("test1", "test2")
df_list <- list(data.frame(mtcars[, 1]), data.frame(mtcars[, 2]))

map2(df_list, new_names, ~ {
  colnames(.x) <- .y
  .x
})

方法2：使用rename明确重命名 #

利用dplyr::rename结合tidy eval语法，直接指定新列名：

map2(df_list, new_names, ~ .x |> rename(!!.y := everything()))

这里!!.y将map2中的新列名元素注入到rename的表达式中，everything()匹配所有列（此处仅一列）。

方法3：修正rename_with的写法 #

如果坚持用rename_with，需要明确引用外层的.y（map2的第二个参数），可以用以下两种方式：

# 写法1：用匿名函数明确引用外层.y
map2(df_list, new_names, ~ .x |> 
       rename_with(.cols = everything(), .fn = function(x) .y))

# 写法2：用!!注入外层.y
map2(df_list, new_names, ~ .x |> 
       rename_with(.cols = everything(), .fn = ~!!.y))

验证结果 #

运行上述任意代码后，输出的列表中：

• 第一个数据框的列名是test1
• 第二个数据框的列名是test2

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