如何在 purrr 中使用 rlang

Question

我想得到 2 data.frames，按列

进行差异分组

c("hp", "cyl") %>% 
  tibble() %>% 
  magrittr::set_colnames("vars1") %>% 
  mutate(data = map(vars1,~mtcars %>% as_tibble)) %>% 
  mutate( res = map2(data,vars1,function(x,y){
    x %>% 
      group_by(!!sym(y))
  }))

我不明白!!sym(y)
有什么问题感谢您的任何建议

Answer 1

我们可以使用可以接受字符串参数的group_by_at。

library(tidyverse)

c("hp", "cyl") %>% 
  tibble() %>% 
  magrittr::set_colnames("vars1") %>% 
  mutate(data = map(vars1,~mtcars %>% as_tibble)) %>% 
  mutate(res = map2(data,vars1,function(x,y){
    x %>% 
      group_by_at(y)
  }))

# A tibble: 2 x 3
#  vars1 data               res               
#  <chr> <list>             <list>            
#1 hp    <tibble [32 × 11]> <tibble [32 × 11]>
#2 cyl   <tibble [32 × 11]> <tibble [32 × 11]>

如果我们将其作为一个独立的函数并将其应用于 map2

，则当前解决方案有效

sym_fun <- function(x, y) {
  x %>%  group_by(!!sym(y))
}

c("hp", "cyl") %>% 
  tibble() %>% 
  magrittr::set_colnames("vars1") %>% 
  mutate(data = map(vars1,~mtcars %>% as_tibble)) %>% 
  mutate(res = map2(data,vars1,sym_fun))

如何在 purrr 中使用 rlang

how to use rlang inside purrr

r

purrr

tidyverse

rlang