如何在purrr的imap中使用嵌套匿名函数为数据框列名加后缀

要实现给列表中每个数据框的列名添加对应数据框名称作为后缀，你需要注意嵌套匿名函数的作用域问题，同时确保列表中的数据框带有名称（这样imap才能获取到正确的名称而非索引）。

正确代码示例 #

library(tidyverse)

# 给列表中的数据框命名，确保imap能拿到名称而非数字索引
df_list <- list(mtcars = mtcars, iris = iris)

# 使用imap配合明确的函数参数，避免作用域混淆
result <- imap(df_list, function(df, df_name) {
  rename_with(df, ~str_c(., "_", df_name))
})

# 查看列名验证效果
map(result, names)

运行结果 #

[[1]]
 [1] "mpg_mtcars"  "cyl_mtcars"  "disp_mtcars" "hp_mtcars"   "drat_mtcars"
 [6] "wt_mtcars"   "qsec_mtcars" "vs_mtcars"   "am_mtcars"   "gear_mtcars"
[11] "carb_mtcars"

[[2]]
[1] "Sepal.Length_iris" "Sepal.Width_iris"  "Petal.Length_iris"
[4] "Petal.Width_iris"  "Species_iris"

原代码失败原因 #

你之前的代码有两个核心问题：

1. 列表未命名：list(mtcars, iris)没有给元素命名，imap的.y会返回数字索引（1、2）而非数据框名称。
2. 作用域混淆：嵌套的~ str_c(., "_", .y)中，内层的.y属于rename_with的函数作用域，而非imap传递的数据框名称。此时.y是rename_with的第二个参数（默认值为NULL），所以无法正确拼接名称。

另一种简洁写法 #

如果偏好使用~语法，可以用大括号明确保留外层作用域的.y：

imap(list(mtcars = mtcars, iris = iris), ~{
  rename_with(.x, function(col) str_c(col, "_", .y))
}) %>% map(names)

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