用Repard2和Rlang突变柱

Question

我正在尝试以下操作：

library(tidyverse)
library(rlang)

df <- data.frame(a = 1:2)

reduce2(list(df, df, df), letters[2:3], ~ mutate(.x, !!(.y) := 2:3))
#> Error in local_error_context(dots = dots, .index = i, mask = mask): promise already under evaluation: recursive default argument reference or earlier problems?

我确实知道将列突变为数据框的许多方法，但是我正在尝试学习rlang。

预期输出：

  a b c
1 1 2 2
2 2 3 3

Answer 1

一种将purrr :: redive（）和rlang IS组合的方法

library(dplyr)
library(purrr)

reduce(letters[2:3], ~ .x %>% mutate(!!.y := 2:3), .init = df)

#   a b c
# 1 1 2 2
# 2 2 3 3

： 。

Answer 2

我认为redain 2在这里不是正确的功能，因为您实际上并未使用任何项目，即第一次迭代后的数据帧列表。传递给redy2的函数采用三个参数 - 第一个是要减少的对象，第二个是.x .x中的下一个项目，第三个是下一个项目.y。

这意味着您仍然可以使用REDAL2，请注意：

reduce2(.x = list(df, df, df), .y = letters[2:3], 
        .f = function(A, B, C) mutate(A, {{C}} := 2:3))
#>   a b c
#> 1 1 2 2
#> 2 2 3 3

但请注意，您没有在功能主体中使用第二个参数。您只需使用降低：

reduce(list(df, 'b', 'c'), ~ mutate(.x, !!.y := 2:3))

Answer 3

我确定您知道您可以做df [letters [2：3]]＆lt; -2：3实现相同的输出。

要使用purrr和rlang您可以使用 -

library(dplyr)
library(purrr)

bind_cols(df, map_dfc(letters[2:3], ~df %>% transmute(!!.x := 2:3)))

#  a b c
#1 1 2 2
#2 2 3 3

另一种方法是 -

map(letters[2:3], ~df %>% mutate(!!.x := 2:3)) %>% reduce(inner_join, by = 'a')