如何用purrr::map结合原生管道批量生成带分组的箱线图？

你可以使用purrr::imap替代map，它能同时获取遍历对象的值（.x）和名称（.y），结合原生管道占位符_引用完整数据框，完美实现需求：

mtcars |>
  select(am, gear, carb, cyl) |>  # 保留分组变量cyl
  imap(~ ggplot(_, aes(y = .x, fill = factor(cyl))) +
         geom_boxplot() +
         labs(title = .y))

错误原因解析 #

你原来的代码用map遍历数据框列时，只会传递列的数值向量（.x），不会传递列名，因此labs(title = .y)中的.y不存在，触发报错。

需求匹配说明 #

• .x对应列向量：imap的.x自动绑定当前遍历的列（am/gear/carb）的数值向量，直接在aes(y = .x)中使用即可。
• 原生管道占位符_指定分组变量：ggplot(_, ...)中的_指代管道中前一步的完整数据框（包含cyl），直接用factor(cyl)引用分组变量，无需硬编码mtcars$cyl。
• 图表标题为列名：imap的.y自动绑定当前列的名称，在labs(title = .y)中直接使用即可生成对应列名的标题。

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