如何在ggplot中左对齐分组并列柱状图？

我在绘制时间序列柱状图时，用竖线标记独立事件的发生时间以展示其对数据的影响。当前柱子以数据时间点为中心，但事件发生在数据采集后一个月，导致事件竖线看起来处于数据区间中间而非之后。我需要将数据柱子左对齐，让数据采集时间点落在最右侧柱子的右侧。尝试过just、nudge等位置参数，以及position_dodge()/position_dodge2()，但在分组并列柱状图上均未成功。

复现代码 #

BarData <- tibble(
  date = as.Date(c('01/01/2020', '01/01/2020', '01/01/2022', '01/01/2022', '01/01/2023', '01/01/2023'), "%m/%d/%Y"),
  side = c('L', 'R', 'L', 'R', 'L', 'R'),
  value = c(80, 85, 90, 90, 95, 100)
)

EventData <- tibble(
  date = as.Date(c('01/01/2018', '01/02/2020', '01/02/2022'), "%m/%d/%Y"),
  name = c('First', 'Second', 'Third')
)

datemin = min(BarData$date, EventData$date)
datemax = max(BarData$date, EventData$date)

ggplot(BarData, aes(x=date, y=value, fill=side, col=side)) +
  geom_col(alpha= 0.5, position = 'dodge') + 
  geom_vline(xintercept = EventData$date, size = 0.75) +
  xlim(c(datemin, datemax))

当前图表存在两个问题：最右侧柱子因轴限制被截断，且事件竖线位置不符合“事件在数据采集后发生”的逻辑。

解决方案 #

核心思路是手动调整柱子的x轴位置，结合分组间距控制，同时用scale_x_date()替代xlim()避免柱子截断。

修改后的代码：

library(ggplot2)
library(dplyr)

BarData <- tibble(
  date = as.Date(c('01/01/2020', '01/01/2020', '01/01/2022', '01/01/2022', '01/01/2023', '01/01/2023'), "%m/%d/%Y"),
  side = c('L', 'R', 'L', 'R', 'L', 'R'),
  value = c(80, 85, 90, 90, 95, 100)
)

EventData <- tibble(
  date = as.Date(c('01/01/2018', '01/02/2020', '01/02/2022'), "%m/%d/%Y"),
  name = c('First', 'Second', 'Third')
)

datemin = min(BarData$date, EventData$date)
datemax = max(BarData$date, EventData$date)

# 定义分组柱子的总宽度（按天计算，可根据需求调整）
group_bar_width <- 30

ggplot(BarData, aes(x=date, y=value, fill=side, col=side)) +
  # 将柱子左移半个分组宽度，同时设置单根柱子宽度和分组间距
  geom_col(
    alpha=0.5, 
    width = group_bar_width/2,
    position = position_dodge(width = group_bar_width),
    aes(x = date - group_bar_width/2)
  ) + 
  geom_vline(xintercept = EventData$date, size = 0.75) +
  # 用scale_x_date设置轴范围，给最右侧柱子预留空间
  scale_x_date(
    limits = c(datemin, datemax + group_bar_width),
    date_labels = "%Y-%m-%d"
  ) +
  theme_minimal()

关键调整说明 #

• 柱子左对齐：通过aes(x = date - group_bar_width/2)将柱子整体左移半个分组宽度，让原始数据采集时间点落在分组柱子的右侧。
• 分组间距控制：position_dodge(width = group_bar_width)保证两个并列柱子的间距合适，width = group_bar_width/2设置单根柱子的宽度，避免重叠。
• 避免柱子截断：scale_x_date()的limits参数在最大值基础上增加了分组宽度的空间，确保最右侧柱子完整显示，替代会截断元素的xlim()。
• 事件竖线位置：调整后，发生在数据采集后一个月的事件竖线会自然对应到数据柱子的右侧，符合事件发生的时间逻辑。

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