数据量过大Excel卡顿，如何在R中绘制多组合并boxplot？

第一步：整理数据为长格式 #

你的数据分散在180个100×2的data frame里，首先需要把它们合并成一个单一的长格式数据框，这是R绘制分组箱线图的核心前提。

如果每个data frame对应一个分组（比如df_A对应分组A、df_B对应分组B），可以用以下代码批量合并：

# 加载必要工具包
library(dplyr)

# 将所有目标data frame存入列表（可根据你的命名规则调整，比如以"df_"开头就用pattern="df_"）
df_list <- mget(ls(pattern = "你的dataframe命名规则"))
# 给每个data frame添加分组标签并合并
group_labels <- names(df_list) # 假设列表名就是分组名，比如"df_A"提取"A"可加一步gsub("df_", "", names(df_list))
combined_df <- bind_rows(mapply(function(df, label) {
  df$分组 <- label
  return(df)
}, df_list, group_labels, SIMPLIFY = FALSE))

如果每个data frame内部已经包含分组列（比如列名是分组，值为A/B/C...），直接合并即可：

combined_df <- bind_rows(df_list)

第二步：用ggplot2绘制合并箱线图 #

ggplot2处理大数据的效率远高于Excel，且能轻松实现多组合并的可视化需求：

library(ggplot2)

# 基础多组合并箱线图
ggplot(combined_df, aes(x = 分组, y = 你的数值列名)) +
  geom_boxplot(fill = "#4292c6", alpha = 0.7) +
  labs(title = "多分组合并箱线图", x = "分组", y = "数值") +
  theme_bw() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) # 分组过多时旋转x轴标签避免重叠

# 若需区分不同原始data frame的贡献，可添加颜色分组
ggplot(combined_df, aes(x = 分组, y = 你的数值列名, fill = 来源ID)) +
  geom_boxplot(position = position_dodge(width = 0.8), alpha = 0.7) +
  labs(title = "按数据来源区分的多分组箱线图", x = "分组", y = "数值", fill = "原始数据集") +
  theme_bw()

性能优化建议 #

• 若数据量过大导致绘图卡顿，可先过滤极端异常值：combined_df <- combined_df %>% filter(你的数值列名 > quantile(你的数值列名, 0.01), 你的数值列名 < quantile(你的数值列名, 0.99))
• 或随机抽样保留核心分布：combined_df <- combined_df %>% sample_n(80000)（抽样数量可按需调整）

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