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)`.

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

Answer 1

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

Answer 2

我们可以在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))
 }

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

tidyverse use across with pasted external vector that contains column names to mutate

r

dplyr

tidyverse

tidyeval

across