如何在purrr::map()中向自定义函数传递变量名？

问题原因分析 #

你遇到的map()调用后新增.x变量、原变量未打乱的问题，本质是自定义函数的变量引用逻辑错误，或是调用时参数传递不匹配——函数没有正确识别要替换的目标变量，反而把map迭代的元素当成新变量添加了。

正确实现步骤 #

以下是基于tidyverse的完整解决方案：

1. 准备原始数据

先创建示例tibble（可替换为你的真实数据）：

library(tidyverse)

# 原始数据示例
original_df <- tibble(
  var1 = 1:10,
  var2 = letters[1:10],
  var3 = rnorm(10)
)

2. 修正自定义打乱函数

确保函数能正确接收原始tibble和目标变量名，替换而非新增变量：

shuffle_var <- function(df, target_var) {
  # 使用!!和[[实现变量的正确引用与替换
  df %>% mutate(!!target_var := sample(.[[target_var]]))
}

• !!target_var：将字符串形式的变量名转为可识别的列名
• .[[target_var]]：提取目标列的数值进行打乱
• sample()：随机打乱目标列的内容

3. 生成3×10的组合并嵌套打乱结果

通过expand_grid生成所有变量+版本的组合，再用map2批量调用打乱函数：

# 定义要打乱的变量列表和版本数
target_vars <- c("var1", "var2", "var3")
version_count <- 1:10

# 生成变量+版本的全组合（共30行）
result_df <- expand_grid(
  variable = target_vars,
  version = version_count
) %>%
  # 为每一行生成对应的打乱后tibble
  mutate(shuffled_data = map2(variable, version, ~shuffle_var(original_df, .x)))

4. 验证结果

查看任意一行的嵌套数据，确认目标变量已被打乱：

# 查看var1的第1个版本
result_df %>% filter(variable == "var1", version == 1) %>% pull(shuffled_data)

最终效果 #

result_df共30行，每一行包含：

• variable：被打乱的变量名
• version：版本编号（1-10）
• shuffled_data：嵌套的tibble，仅目标变量被打乱，其余变量与原始数据一致

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