tidyverse 与粘贴的外部向量一起使用，其中包含要变异的列名

Question

让我们假设以下数据：

df <- data.frame(x = c(1, 2),
                 y = c(3, 4),
                 z = c(5, 6))

让我们进一步假设我有一个包含我想要处理的列名的向量，例如

var_names_1 <- c("test", "x", "y")
var_names_2 <- c("test", "z")

现在我要做的是使用across 改变var_names_... 对象中除第一个元素之外的所有df 列。 （在这种情况下，我会循环遍历我的两个 var_names 对象）。

所以在第一个循环中我想改变列 x 和 y，在第二个循环中我想改变 z。

for (i in 1:2)
{
  df %>%
    mutate(across(!!sym(paste0("var_names_", i, [-1])), as_factor))
}

但是，我收到以下错误消息：

Error: Problem with `mutate()` input `..1`.
x Can't subset columns that don't exist.
x Column `var_names_1` doesn't exist.
i Input `..1` is `across(`var_names_1`, as_factor)`.

我以为我终于了解了一些 tidyeval 事物的用例，但显然我的 !!sym 方法在这里不起作用。有什么建议吗？

Answer 1

我们可以在across中使用any_of

library(dplyr)
df1 <- df %>%
    mutate(across(any_of(c(var_names_1, var_names_2)),  factor))

-输出

str(df1)
#'data.frame':  2 obs. of  3 variables:
# $ x: Factor w/ 2 levels "1","2": 1 2
# $ y: Factor w/ 2 levels "3","4": 1 2
# $ z: Factor w/ 2 levels "5","6": 1 2 

---

或者如果我们需要传入一个循环，带有map 的选项将是

map(list(var_names_1, var_names_2),
        ~ {df <- df %>%
                 mutate(across(any_of(.x), factor))
          })      

---

或者使用for 循环

for(i in 1:2) {
     df <- df %>%
              mutate(across(any_of(get(str_c("var_names_", i))), factor))
 }

Answer 2

也许你应该试试eval + str2expression

for (i in 1:2){
  str(df %>%
    mutate(across(eval(str2expression(paste0("var_names_", i,"[-1]"))), as_factor)))
}

显示

'data.frame':   2 obs. of  3 variables:
 $ x: num  1 2
 $ y: Factor w/ 2 levels "3","4": 1 2
 $ z: num  5 6
'data.frame':   2 obs. of  3 variables:
 $ x: num  1 2
 $ y: num  3 4
 $ z: num  5 6