使用ggplot2绘制条形图时间距不规则的问题解决问询

你在使用ggplot2绘制条形图时，因分类变量Orbit在部分Vacc_Stage分组下无对应数据，导致Alex的条形间距过大，所有条形宽度无法保持统一。当前代码如下：

ggplot(ObsData, aes(factor(Vacc_Stage), Sparring, fill = Giraffe))+
  stat_summary(fun.data=mean_sdl, geom="bar", position = "dodge")+
  labs(title="Sparring", y="Mean Frequency of Behaviour Performed Per 15-Minute Observation", x="Vaccination Stage")+
  theme_bw()+
  scale_fill_manual("legend", values = c("Alex" = "grey", "Orbit" = "black"))

可行的解决方法 #

• 方法1：固定避让宽度
  手动指定position_dodge的宽度值，强制所有分组保持统一的条形避让间距，即便某组无数据也会预留位置，从而让所有条形宽度一致。修改后的代码：

  ggplot(ObsData, aes(factor(Vacc_Stage), Sparring, fill = Giraffe))+
    stat_summary(fun.data=mean_sdl, geom="bar", position = position_dodge(width = 0.9))+
    labs(title="Sparring", y="Mean Frequency of Behaviour Performed Per 15-Minute Observation", x="Vaccination Stage")+
    theme_bw()+
    scale_fill_manual("legend", values = c("Alex" = "grey", "Orbit" = "black"))
  

  可根据图表整体布局调整width的数值（通常在0.8-1之间）。

• 方法2：补全缺失的分类组合
  先补全Vacc_Stage和Giraffe的所有可能组合，缺失的Sparring值可设为NA或0，再进行绘图。这样缺失数据的位置会显示空白占位，确保所有条形宽度一致。示例代码：

  library(tidyr)
  # 补全所有分类组合，缺失的行为频率设为NA（若要显示0则改为0）
  ObsData_complete <- ObsData %>%
    complete(Vacc_Stage, Giraffe, fill = list(Sparring = NA))
  
  ggplot(ObsData_complete, aes(factor(Vacc_Stage), Sparring, fill = Giraffe))+
    stat_summary(fun.data=mean_sdl, geom="bar", position = "dodge")+
    labs(title="Sparring", y="Mean Frequency of Behaviour Performed Per 15-Minute Observation", x="Vaccination Stage")+
    theme_bw()+
    scale_fill_manual("legend", values = c("Alex" = "grey", "Orbit" = "black"))
  

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