在R语言while循环中用向量生成列名时遇local_error_context错误

错误原因 #

你在dplyr::mutate的动态列名中错误混用了tidy eval的{{}}语法与循环变量。{{}}是用于捕获函数参数引用的语法（适用于函数内参数传递场景），而循环中的my_new_cols[i]是动态变化的常规变量，用{{}}包裹后，dplyr会尝试递归解析该变量的上下文，最终触发"promise already under evaluation"的递归求值错误。此外，你之前用索引生成列名的代码出现异常列，是因为循环结束后变量i的数值超出了向量长度，导致最后一次循环生成了无效列名。

解决方案 #

方案1：修正while循环写法（适配tidyverse） #

改用glue生成动态列名，配合tidy eval的!!解引用操作符，避免语法混用：

library(dplyr)
library(glue)

my_new_cols <- c("a", "b", "c")
current_data <- tibble(id = c(1:4), score = c(10, 20, 30, 40))

i <- 1
while(i <= length(my_new_cols)) {
  # 生成目标列名
  target_col <- glue("n_{my_new_cols[i]}")
  # 用!!解引用列名，完成赋值
  current_data <- current_data %>%
    mutate(!!target_col := paste(my_new_cols[i], score))
  i <- i + 1
}

方案2：更简洁的tidyverse写法（推荐） #

放弃while循环，使用purrr::map_dfc批量生成新列再绑定，更符合tidyverse风格：

library(dplyr)
library(purrr)
library(glue)

my_new_cols <- c("a", "b", "c")
current_data <- tibble(id = c(1:4), score = c(10, 20, 30, 40))

current_data <- current_data %>%
  bind_cols(
    # 遍历列名向量，批量生成新列
    map_dfc(my_new_cols, ~ tibble(!!glue("n_{.x}") := paste(.x, score)))
  )

方案3：Base R原生写法 #

如果不需要依赖tidyverse包，直接用Base R的循环与列赋值即可：

my_new_cols <- c("a", "b", "c")
current_data <- data.frame(id = c(1:4), score = c(10, 20, 30, 40))

# 用for循环遍历列名，比while更直观
for (col_val in my_new_cols) {
  current_data[[paste0("n_", col_val)]] <- paste(col_val, current_data$score)
}

内容的提问来源于stack exchange，提问作者J.Sabree