ggplot2箱线图数量异常修复：如何按月份显示双处理组箱线图？

核心问题分析 #

1. 数据不完整：你提供的table1中，treatment列仅包含Random组数据，无Animal组对应记录，缺失数据导致无法绘制目标箱线图。
2. 分组逻辑错误：aes(group = treatment)会将所有月份的同处理组数据合并，无法实现“单月份内区分双处理组”的需求，需按月份+处理组的组合分组。

修正方案 #

1. 补全数据结构 #

首先确保每个month都存在Random和Animal两组数据，以下是构造示例完整数据的代码：

# 创建包含所有月份+处理组组合的框架
table1_full <- expand.grid(
  month = factor(c("1", "2", "3", "4", "11", "12")),
  stat_year = "2019/2020",
  treatment = factor(c("Random", "Animal"), levels = c("Random", "Animal"))
)
# 生成模拟温度数据（替换为你的真实数据）
set.seed(123)
table1_full$temp <- rnorm(nrow(table1_full), mean = 5, sd = 2)

2. 修正绘图代码 #

推荐直接将treatment映射到fill或color，ggplot会自动按month+treatment组合分组，同时用position_dodge避免箱线图重叠：

library(ggplot2)

sample.plot1 <- ggplot(table1_full, aes(x = month, y = temp, fill = treatment)) +
  geom_boxplot(position = position_dodge(width = 0.8)) + # 同月份双组横向错开
  theme_classic()

# 保留分面设置
sample.plot1 + facet_wrap(.~stat_year, ncol = 1)

如果不想用颜色区分，也可以手动指定分组：

sample.plot1 <- ggplot(table1_full, aes(x = month, y = temp, group = interaction(month, treatment))) +
  geom_boxplot(position = position_dodge(width = 0.8)) +
  theme_classic()

关键提示 #

• 若使用真实数据，需确认每个month的两个treatment都有对应观测值，否则对应位置会无箱线图
• position_dodge的width参数可根据需求调整，让箱线图间距更合理

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