我想获得 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)
有什么问题
感谢您的建议
最佳答案
我们可以使用可以接受字符串参数的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))
关于r - 如何在 purrr 中使用 rlang,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/58693641/