嵌套tibble中按字符串向量指定变量对列表列内tibble分组报错问题

问题原因 #

你的写法错误来自!!!运算符的求值时机优先级问题：
!!!是rlang提供的表达式注入运算符，会在它所处的直接父代码环境中优先完成求值替换。当你把!!!rlang::syms(unlist(.y))写在dplyr::mutate的参数内部时，!!!会先在mutate的顶层执行环境（也就是嵌套tibbletoydata的全局环境）中寻找.y变量，而.y是purrr::map2匿名函数的内部参数，此时map2还未启动执行，.y尚未被赋值，自然会运行报错。你单独提取map2执行时，!!!的父环境就是map2的匿名函数环境，.y已经被正常赋值，所以可以运行成功。

解决方案 #

方案1：封装函数隔离求值环境

把分组逻辑封装成独立函数，让!!!在函数内部的环境中再求值，避开mutate层的提前扫描：

# 封装分组函数
group_by_custom <- function(df, var_list) {
  dplyr::group_by(df, !!!rlang::syms(unlist(var_list)))
}

# 调用即可正常运行
toydata %>%
  dplyr::mutate(
    data = purrr::map2(data, vars, group_by_custom)
  )

方案2：用across+all_of避开非标准求值

dplyr 1.0+版本支持直接用across配合all_of接受字符串向量选择列，不需要使用syms和!!!的注入逻辑，从根源避免求值顺序问题：

toydata %>%
  dplyr::mutate(
    data = purrr::map2(data, vars, ~ dplyr::group_by(.x, dplyr::across(dplyr::all_of(unlist(.y)))))
  )

内容的提问来源于stack exchange，提问作者Koopa