如何在ggplot中为月度配对条形图添加组间空隙与月度标签

实现方法 #

同月份成对柱之间留空隙 #

原代码中position = 'dodge'是简写形式，默认会让同组的两个柱子完全贴合、无间隙。要在同组两个柱子之间加间隔，只需将dodge参数替换为可自定义宽度的position_dodge，配合geom_bar的width参数即可精准控制间隙大小：

• 核心参数逻辑：geom_bar的width定义每个月份对应的整组柱子占的横向总宽度；position_dodge的宽度如果小于整组总宽度，就会自动在同组并排的两个柱子之间留出均匀空隙，不会出现不同月份组的柱子互相碰撞的问题。

geom_bar(
  stat = "identity",
  width = 0.7,
  position = position_dodge(width = 0.6)
)

• 调试技巧：想要同组柱子的间隙更大，就缩小position_dodge的宽度值；想要不同月份的组之间间距更大，就缩小geom_bar的width值。

优化月份轴标签可读性 #

原代码直接把字符串格式的zdate作为x轴离散变量，很容易出现标签重叠、显示不全的问题，分两步优化：

1. 将字符串格式的月份文本转换为标准日期类型，方便后续统一控制刻度：

   m_scores <- m_scores %>%
     mutate(zdate = as.Date(paste0("01 ", zdate), format = "%d %b %Y"))
   

2. 自定义x轴的刻度频率、显示格式，配合标签旋转避免重叠：

   scale_x_date(
     date_breaks = "1 month", # 每个月对应一个刻度，需要稀疏显示可改为"2 months"
     date_labels = "%b %Y" # 标签格式为“月份 年份”，和原始文本风格一致
   ) +
   theme(
     axis.text.x = element_text(angle = 45, hjust = 1) # 标签转45度右对齐，彻底避免重叠
   )
   

完整可运行代码 #

你原来基于ddply的聚合、基于gather的长格式转换逻辑不需要改动，以下代码仅用内置样本演示调整后的绘图流程

library(ggplot2)
library(tidyr)
library(dplyr)

# 内置你提供的样本数据
m_scores <- data.frame(
  zdate = c("Nov 2014", "Dec 2014", "Jan 2015", "Feb 2015", "Mar 2015", "Apr 2015",
            "May 2015", "Jun 2015", "Jul 2015", "Aug 2015", "Sep 2015", "Oct 2015",
            "Nov 2015", "Dec 2015", "Jan 2016", "Feb 2016", "Mar 2016", "Apr 2016",
            "May 2016", "Jun 2016"),
  d1 = c(263,430,507,326,281,352,280,243,313,446,416,616,269,781,865,997,920,376,434,271),
  d2 = c(318,662,326,279,345,260,315,238,251,439,404,423,242,527,861,2139,1421,498,309,284)
)

# 数据整理（和你原来的gather逻辑完全一致）
df <- m_scores %>%
  mutate(zdate = as.Date(paste0("01 ", zdate), format = "%d %b %Y")) %>%
  gather(event, total, d1:d2)

# 绘图
ggplot(df, aes(x = zdate, y = total, fill = event)) +
  geom_bar(
    stat = "identity",
    width = 0.7,
    position = position_dodge(width = 0.6)
  ) +
  scale_x_date(
    date_breaks = "1 month",
    date_labels = "%b %Y"
  ) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 45, hjust = 1, size = 10)
  ) +
  labs(x = "月份", y = "统计计数", fill = "指标类型")

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