在 R 中，为什么我在尝试从向量创建列名时在 local_error_context(dots = dots, .index = i, mask = mask) 中出现错误？

Question

我有一个数据集和一个列名向量，我想在 while 循环中应用它们。 我可以编写代码，以便将迭代次数放入列名中（例如，n_1、n_2），但是当我尝试让它提取值（例如，a、b）时，我会遇到各种错误（详见下文） ).

这是我的样本数据集和我想要的：

#set up
library(dplyr)
my_new_cols <- c("a", "b", "c")

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

#desired output
current_data <- tibble(id = c(1:4),
                       score = c(10, 20, 30, 40),
                       n_a = c("a 10", "a 20", "a 30", "a 40"),
                       n_b = c("b 10", "b 20", "b 30", "b 40"),
                       n_c = c("c 10", "c 20", "c 30", "c 40"))

这是我的许多尝试。 第一个运行，但不是给出 n_a，而是给出 n_1（索引）。 它还奇怪地给出了名为“n_”的列，而 output 是 n_3 的副本。

i = 1
while(i <= length(my_new_cols)) {
  current_data <- current_data %>%
    mutate("n_{{i}}" := paste(my_new_cols[i], score))
  i <- i +1
}

我还尝试了很多调用 my_new_cols 的组合，您可以在其中定义列名，例如"n_{{my_new_cols[i]}}" 、 "n_{{.data[i]}}"和"n_{{my_new_cols$i}}" ，所有这些都会导致错误，最常见的是

Error in local_error_context(dots = dots, .index = i, mask = mask) : promise already under evaluation: recursive default argument reference or earlier problems?

i = 1
while(i <= length(my_new_cols)) {
  current_data <- current_data %>%
    mutate("n_{{my_new_cols[i]}}" := paste(my_new_cols[i], score))
  i <- i +1
}

发生了什么事，我如何获得要显示的值而不是索引？

Answer 1

如果您将"n_{{my_new_cols[i]}}"更改为"n_{my_new_cols[i]}" ，您的代码将按预期工作。

i = 1
while(i <= length(my_new_cols)) {
  current_data <- current_data %>%
    mutate("n_{my_new_cols[i]}" := paste(my_new_cols[i], score))
  i <- i +1
}

或者尝试使用 for 循环，因为代码更容易理解。

for(i in my_new_cols) {
  current_data <- current_data %>%
    mutate("n_{i}" := paste(i, score))
}