您对map2的.f和rename_with的.fn都使用了带有 * purrr样式lambda* 的匿名函数，并且它们相互冲突，您需要显式指定一个参数名称，即将.fn = ~ .y更改为.fn = \(nms) .y。

map2(.x = df_list,
     .y = new_names,
     .f = ~ .x |> 
       rename_with(.cols = everything(),
                   .fn   = \(nms) .y))

你有两个问题：

• rename_with需要函数，而不是向量
• 你得到的错误是由于使用~.y，而只有.y可以工作。我猜这是由于purrr/dplyr的求值中的小问题

如果提供函数列表作为输入，则可以使用代码：

new_names <- list(function(x) {"test1"}, function(x) {"test2"})

df_list <- list(data.frame(mtcars[, 1]),
                data.frame(mtcars[, 2]))

map2(.x = df_list,
     .y = new_names,
     .f = ~.x %>%  
       rename_with(.cols = everything(),
                   .fn   = .y))

或者，我只使用colnames：

new_names <- c("test1", "test2")

df_list <- list(data.frame(mtcars[, 1]),
                data.frame(mtcars[, 2]))

map2(.x = df_list,
     .y = new_names,
     .f = function(df, new_name) {
       colnames(df)[1] <- new_name
       df
     })

我们可以使用rename()右侧的数字来指定要重命名的列号，因此我只使用map2()和rename()（而不是rename_with）。

library(purrr)
library(dplyr)

map2(df_list,
     new_names,
     \(df, col) rename(df, !! col := 1)
     )

#> [[1]]
#>    test1
#> 1   21.0
#> 2   21.0
#> 3   22.8
#> 4   21.4
#> 5   18.7
#> ...
#> 
#> [[2]]
#>    test2
#> 1      6
#> 2      6
#> 3      4
#> 4      6
#> 5      8
#> ...

数据来自OP

new_names <- c("test1", "test2")

df_list <- list(data.frame(mtcars[, 1]),
                data.frame(mtcars[, 2]))

由reprex package（v2.0.1）于2023年3月6日创建