如何在purrr::map中结合展示管道%$%提取分组数据变量

首先生成分组后的数据集列表：

library(dplyr)
library(purrr)

mtlist <- mtcars %>% group_split(carb)

要通过%$%管道提取每个子数据集修改后的cyl变量，核心是利用%$%将左侧的数据集列表暴露给右侧，再用map遍历列表逐个提取目标列：

# 方法1：直接提取列
mtlist %>% map(mutate, cyl = 6*cyl) %$% map(., ~ .x$cyl)

# 方法2：用pluck更简洁
mtlist %>% map(mutate, cyl = 6*cyl) %$% map(pluck, "cyl")

原理说明：mtlist %>% map(mutate, cyl = 6*cyl)返回的是每个子数据集都修改了cyl列的列表，%$%将这个列表传递给右侧的map函数，map会遍历列表中的每个数据集，提取出修改后的cyl列，最终得到由各子数据集cyl向量组成的列表。

内容的提问来源于stack exchange，提问作者J. Doe