使用ggplot2绘制时间线：如何让并行事件清晰可见？

我想用ggplot2绘制时间线，但部分事件时间重合时会重叠，导致只能看到一个事件。以下是事件示例表：

library(tidyverse)
events <- 
  tribble(
    ~group,   ~name,          ~start,       ~end,         ~color,
    "group1", "first event",  "2023-09-19", "2023-11-19", "color1",
    "group1", "in parallel",  "2023-09-19", "2023-11-19", "color2",
    "group1", "later",        "2024-09-01", "2024-09-21", "color1"
  ) |>
  mutate(start=lubridate::ymd(start),
         end=lubridate::ymd(end))

目前使用的ggplot2命令如下：

ggplot(events,
       aes(xmin=start, xmax=end,
           ymin=group, ymax=group,
           col=color)) +
  scale_x_date() + 
  geom_rect(linewidth=3)

问题在于，第二个事件会覆盖第一个，导致第一个事件完全不可见。试过ggplot2的位置调整方法，比如position_dodge()，但它会偏移x轴上的事件，导致时间显示不准确。

解决方案：垂直方向错开并行事件 #

核心思路是给同一分组内时间重合的事件分配不同的垂直偏移量，让它们在y轴方向上分开，同时保持x轴的日期完全准确。

1. 先处理数据，为每组内的并行事件生成偏移量：

events <- events %>%
  # 按分组、开始和结束时间分组，标记同时间段的事件序号
  group_by(group, start, end) %>%
  mutate(y_offset = row_number() / 5) %>%  # 分母数值可调整，控制垂直间距大小
  ungroup()

2. 修改绘图代码，基于分组的数值化结果加上/减去偏移量，调整矩形的y轴范围：

ggplot(events,
       aes(xmin=start, xmax=end,
           # 将分组转为数值，结合偏移量设置矩形的上下边界
           ymin=as.numeric(factor(group)) - y_offset, 
           ymax=as.numeric(factor(group)) + y_offset,
           col=color)) +
  scale_x_date() +
  # 重置y轴刻度，显示原来的分组名称
  scale_y_continuous(breaks = as.numeric(factor(unique(events$group))),
                     labels = unique(events$group)) +
  geom_rect(linewidth=3)

这样处理后，时间重合的事件会在垂直方向上错开显示，既不会遮挡彼此，又能保留准确的时间轴信息。如果觉得垂直间距不合适，可以调整y_offset计算时分母的数值，数值越大间距越小，反之则越大。

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