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

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

让我们假设以下数据：

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")

现在我想要做的是使用 df 改变 var_names_... 对象中除第一个元素之外的所有 across 列。 （在这种情况下，我会循环遍历我的两个 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 方法在这里不起作用。有什么建议吗？

解决方法

我们可以在any_of中使用across

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))
 }

,

也许你应该试试 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