在R的ggplot中重命名分组箱线图标签时出错，求解决方法

我用ggplot绘制分组箱线图，先把数据框从宽格式转成长格式，想修改分组箱线图的x轴标签，尝试用xlim(labels= c("A", "B"))时出现错误，图表无法正常生成。

我的代码如下：

data3 %>%
  select(Treatment_A, Treatment_B) %>%
  pivot_longer(cols = everything(), names_to = "Variable",values_to = "Value") %>%
  ggplot(aes(x= Variable, y = Value, fill = Variable)) +
  stat_boxplot(geom= "errorbar", width= 0.5) +
  geom_boxplot(fill=c("skyblue2", "gold2"))+
  labs(x="Treatment", y="Frequency (total)", title="Treatment comparison")+
  theme_minimal()+
  theme(axis.title.x = element_text(size =10))+
  theme(axis.title.y = element_text(size =10))+
  theme(plot.title=element_text(size = 16))+
  theme(plot.title = element_text(hjust = 0.5))+
  stat_summary(fun = mean, geom = "errorbar", aes(ymax = ..y.., ymin = ..y..),
           width = .75,lwd = 0.7, linetype = "dashed", col = "red") +
  xlim(labels= c("A", "B"))+ # <- 这里报错
  ylim(0,30)

报错信息如下：

1: Removed 2730 rows containing missing values (stat_boxplot). 
2: Removed 2730 rows containing missing values (stat_boxplot). 
3: Removed 2730 rows containing non-finite values (stat_summary). 
4: In max(f) : no non-missing arguments to max; returning -Inf
5: Computation failed in `stat_summary()`:
argument must be coercible to non-negative integer

问题原因 #

xlim()函数的作用是设置x轴的数值范围，它不支持labels参数。你误用该函数后，ggplot无法识别原有的分组变量，直接丢失了所有数据，进而触发一系列报错。

正确修改x轴标签的方法 #

要修改离散型x轴的标签，应该使用scale_x_discrete()函数，明确指定原分组名与新标签的映射关系。

修正后的完整代码

data3 %>%
  select(Treatment_A, Treatment_B) %>%
  pivot_longer(cols = everything(), names_to = "Variable",values_to = "Value") %>%
  ggplot(aes(x= Variable, y = Value, fill = Variable)) +
  stat_boxplot(geom= "errorbar", width= 0.5) +
  geom_boxplot() +
  # 规范指定分组填充色，避免颜色映射混乱
  scale_fill_manual(values = c("skyblue2", "gold2")) +
  labs(x="Treatment", y="Frequency (total)", title="Treatment comparison")+
  theme_minimal()+
  # 合并多个theme设置，简化代码
  theme(axis.title.x = element_text(size =10),
        axis.title.y = element_text(size =10),
        plot.title=element_text(size =16, hjust = 0.5)) +
  stat_summary(fun = mean, geom = "errorbar", aes(ymax = ..y.., ymin = ..y..),
               width = .75,lwd = 0.7, linetype = "dashed", col = "red") +
  # 替换xlim为scale_x_discrete修改标签
  scale_x_discrete(labels = c("Treatment_A" = "A", "Treatment_B" = "B")) +
  ylim(0,30)

额外优化说明 #

1. 原代码中geom_boxplot(fill=c("skyblue2", "gold2"))直接传递颜色向量的做法不稳定，改用scale_fill_manual配合fill映射，能确保颜色与分组一一对应。
2. 多个独立的theme()调用可以合并为一个，让代码更简洁易维护。
3. 原代码中存在%>%写漏末尾%的笔误，修正后才能正常运行。

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