R语言ggplot2批量生成分组箱线图并独立输出的实现方法

不需要手动复制代码替换列名，也不用写冗长的for循环，借助tidyverse的长格式转换和分组遍历逻辑，十几行代码就能完成批量出图，后续调整图样式只需要修改一次绘图代码，所有输出自动同步。

方案1：所有图输出到同一个PDF的不同页面（推荐） #

核心思路是先把宽格式数据转成ggplot原生支持的长格式，再按变量名分组遍历绘图，自动写入PDF：

library(tidyverse)

# 宽转长：保留分组列，其余所有数据列自动转换为长格式
df_long <- df %>%
  pivot_longer(cols = -group, names_to = "var_name", values_to = "value")

# 打开PDF设备
pdf("all_variables_boxplot.pdf", width = 8, height = 6)

# 按变量分组逐页绘图
df_long %>%
  group_by(var_name) %>%
  group_walk(~{
    plot_obj <- ggplot(.x, aes(x = group, y = value)) +
      geom_boxplot(outlier.shape = NA) + # 隐藏箱线图离群点
      geom_jitter(width = 0.2, alpha = 0.6) + # 叠加抖动散点
      labs(
        title = paste(.y$var_name, "分组箱线图"),
        x = "分组",
        y = .y$var_name
      ) +
      theme_bw() +
      theme(
        plot.title = element_text(hjust = 0.5), # 标题居中
        axis.text.x = element_text(angle = 45, hjust = 1) # x轴文本旋转45度
      )
    print(plot_obj)
  })

# 关闭设备完成PDF写入
dev.off()

运行完成后当前工作目录下会生成包含所有变量箱线图的PDF文件，每个变量对应单独一页。

方案2：每个变量输出为独立PDF文件 #

如果需要单图单文件，只需要把遍历逻辑里的写入PDF改成ggsave按变量名存文件即可，不需要调整绘图核心代码：

df_long %>%
  group_by(var_name) %>%
  group_walk(~{
    plot_obj <- ggplot(.x, aes(x = group, y = value)) +
      geom_boxplot(outlier.shape = NA) +
      geom_jitter(width = 0.2, alpha = 0.6) +
      labs(
        title = paste(.y$var_name, "分组箱线图"),
        x = "分组",
        y = .y$var_name
      ) +
      theme_bw() +
      theme(
        plot.title = element_text(hjust = 0.5),
        axis.text.x = element_text(angle = 45, hjust = 1)
      )
    # 以变量名命名单独的PDF文件
    ggsave(
      filename = paste0("boxplot_", .y$var_name, ".pdf"),
      plot = plot_obj,
      width = 8,
      height = 6
    )
  })

注意事项 #

• 如果你的分组列名不是group，只需要把pivot_longer里的-group替换成你实际的分组列名即可
• 代码会自动识别所有非分组列作为绘图变量，后续数据框增删变量不需要修改代码逻辑
• 抖动散点的透明度、宽度，箱线图的配色等样式调整，只需要修改一次对应图层参数，所有输出图会同步更新

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