如何在 purrr 中使用 rlang答案

【问题标题】：how to use rlang inside purrr如何在 purrr 中使用 rlang
【发布时间】：2020-02-29 18:46:17
【问题描述】：

我想获得 2 个按列分组的数据帧

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) 有什么问题
感谢您的任何建议

【问题讨论】：

这与here 的问题相同。 !! 立即在周围的上下文中评估其参数。在您的情况下，上下文是 tibble，它没有列 y。 Ronak 将函数定义移到 mutate 之外的解决方案有助于正确解析上下文。
@ArtemSokolov 感谢您的解决方案！

标签： r tidyverse purrr rlang

【解决方案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))

【讨论】：

谢谢回答。是的，我知道这个解决方案，但我有更复杂的情况，需要rlang 解决方案
@jyjek 我猜sym 和 curly-curly ({{}}) 旨在在函数中使用它。我已经更新了答案以表明这一点。