如何将group_split拆分的分组数据框自动作为ggplot的分面(facets)？

完全可以基于已经拆分得到的grp_diamonds列表生成分面图，不需要退回原数据集调用facet_wrap，以下是两种常用实现方案：

方案1：合并列表为带分组标识的完整数据后分面 #

dplyr的group_split默认会保留分组列（也就是你这里的cut列），只需要把列表中的所有数据框按行合并，就可以直接用常规分面语法绘图：

library(tidyverse)

# 合并分组列表为完整数据框
merged_diamonds <- bind_rows(grp_diamonds)

# 生成带cut分面的散点图
ggplot(merged_diamonds, aes(x = carat, y = price)) +
  geom_point(alpha = 0.3) +
  facet_wrap(vars(cut))

如果你的分组列表中不小心删除了cut列，也可以遍历列表给每个数据框补充分组标识后再合并：

merged_diamonds <- imap_dfr(grp_diamonds, ~ mutate(.x, cut = levels(diamonds$cut)[.y]))

方案2：批量生成单图后拼接为类分面效果 #

如果你不想合并数据，可以批量给每个分组生成单独的散点图，再用patchwork包拼接成和原生分面效果一致的组合图，这种方式支持给单个子图做自定义调整，灵活性更高：

library(tidyverse)
library(patchwork)

# 遍历分组列表批量生成单图
plot_list <- map(grp_diamonds, function(df) {
  ggplot(df, aes(x = carat, y = price)) +
    geom_point(alpha = 0.3) +
    ggtitle(unique(df$cut)) # 用cut取值作为子图标题
})

# 按2行排列拼接为组合图，和facet_wrap效果一致
wrap_plots(plot_list, nrow = 2)

如果需要统一所有子图的坐标轴范围、配色等样式，可以在拼接语句后加全局调整参数，比如统一X轴范围：

wrap_plots(plot_list, nrow = 2) & xlim(0, 5)

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