如何在ggplot中调整X轴分类间距以优化分组柱状图？

你的问题根源在于手动添加多个geom_bar并通过position_nudge调整位置的方式，在分类数量较多时会受离散X轴固定间距限制，无法灵活适配柱形排列。更规范可靠的做法是先合并三个数据框，利用ggplot的分组机制自动处理柱形位置：

步骤1：为每个数据框添加地区标识并合并 #

先给每个数据框新增一列标记所属地区，再合并成一个长格式数据框：

# 为每个数据框添加地区列
EduEDLessT$Region <- "Electoral Division"
EduStateLessT$Region <- "Republic of Ireland"
EduACLessT$Region <- "Local Authority"

# 合并三个数据框
EduCombined <- rbind(EduEDLessT, EduStateLessT, EduACLessT)

步骤2：重构ggplot代码 #

使用单个geom_bar，通过fill = Region指定分组，并用position = position_dodge()让ggplot自动计算柱形间距，彻底避免重叠：

EduPlot <- ggplot(EduCombined, aes(x = Highest.Level.of.Education.Completed2, 
                                   y = PercentageOfPopulation, 
                                   fill = Region)) +
  geom_bar(width = 0.7, position = position_dodge(width = 0.8), stat = "identity") +
  scale_x_discrete(name = "Highest Level Of Education Completed",
                   # 可选：调整X轴分类的左右间距，避免边缘柱形贴边
                   expand = expansion(add = 0.5)) +
  scale_y_continuous(name = "% of Population Aged 15+") +
  labs(fill = "Legend") +
  theme_classic() +
  theme(axis.text.x = element_text(angle = 45, margin = margin(t = 0.5, unit = "in")),
        axis.title.x = element_text(margin = margin(0.1, 0, 0.1, 0)),
        legend.position = c(0.125, 0.9))

参数说明 #

• width = 0.7：控制单个柱形的宽度，可根据需求调整
• position_dodge(width = 0.8)：控制同组柱形之间的间距，数值越接近柱形宽度，间距越小；反之则越大
• scale_x_discrete(expand = ...)：调整X轴两端的空白区域，避免边缘分类的柱形贴紧图表边界

这种方法不仅解决了柱形重叠问题，还让代码更简洁易维护，后续新增地区或分类时无需手动调整位置参数。

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