如何合并两个ggplot时间线图表以展示全部事件？

问题背景 #

需要创建展示两类事件的时间演进图表：

• 仅发生在单日的事件
• 持续多日的连续事件
  已分别为两类事件创建了ggplot图表，尝试通过+运算符合并两个图表未成功，询问合并方法。

核心思路 #

ggplot中无需让两个数据集大小一致，每个几何对象（geom）可单独指定对应数据集。直接将多日事件的图层叠加到单日事件的时间线图表上即可，同时调整多日事件的垂直位置，避免和单日事件标注重叠。

修改后的完整代码 #

library(ggplot2)
library(scales)
library(dplyr)
library(tibble)

# 原始数据
df <- data.frame(
  start = c("2022-02-05", "2022-02-15", "2022-03-09", "2022-05-12", "2022-08-27"),
  end = c("2022-02-05", "2022-03-08", "2022-03-09", "2022-05-12", "2022-08-28"),
  event = c("event 1", "event 2", "event 3", "event 4", "event 5")
)

df$start <- as.Date(df$start)
df$end <- as.Date(df$end)

# 拆分数据集：单日事件（点事件）和多日事件（时间段事件）
dftp <- filter(df, start == end) %>% rename(date = start)
dfts <- filter(df, start != end)

# 处理单日事件的位置和标注偏移
positions <- c(0.5, -0.5, 1.0, -1.0)
directions <- c(1,-1)
line_pos <- data.frame(
  date = unique(dftp$date),
  position = rep(positions, length.out = length(unique(dftp$date))),
  direction = rep(directions, length.out = length(unique(dftp$date)))
)

dftp <- merge(x = dftp, y = line_pos, by = "date", all = TRUE) %>% 
  arrange(date)

text_offset <- 0.05
dftp$month_count <- ave(dftp$date == dftp$date, dftp$date, FUN = cumsum)
dftp$text_position <- (dftp$month_count * text_offset * dftp$direction) + dftp$position

# 处理日期范围（包含多日事件的起止日期）
all_dates <- c(dftp$date, dfts$start, dfts$end)
day_buffer <- 30
day_date_range <- seq(min(all_dates) - day_buffer, max(all_dates) + day_buffer, by = "day")
day_format <- format(day_date_range, '%d %b')
day_df <- data.frame(day_date_range, day_format)

# 初始化主图表（基于单日事件数据集）
timeline_plot <- ggplot(dftp, aes(x = date, y = 0)) +
  theme_classic() +
  # 绘制时间线主横线
  geom_hline(yintercept = 0, color = "black", linewidth = 0.3) +
  # 绘制单日事件的垂直线段
  geom_segment(data = dftp[dftp$month_count == 1,], 
               aes(y = position, yend = 0, xend = date), 
               color = 'black', linewidth = 0.2) +
  # 绘制单日事件的圆点
  geom_point(aes(y = 0), size = 2) +
  # 隐藏不需要的坐标轴元素
  theme(
    axis.line.y = element_blank(),
    axis.text.y = element_blank(),
    axis.title.x = element_blank(),
    axis.title.y = element_blank(),
    axis.ticks.y = element_blank(),
    axis.text.x = element_blank(),
    axis.ticks.x = element_blank(),
    axis.line.x = element_blank(),
    legend.position = "bottom"
  ) +
  # 绘制日期标签
  geom_text(data = day_df, aes(x = day_date_range, y = -0.1, label = day_format),
            size = 2.5, vjust = 0.5, color = 'black', angle = 90) +
  # 绘制单日事件的文本标注
  geom_text(aes(y = text_position, label = event), size = 2.5) +
  # 叠加多日事件的线段（指定dfts数据集）
  geom_segment(data = dfts, aes(x = start, xend = end, y = position, yend = position),
               linewidth = 1, inherit.aes = FALSE) +
  # 叠加多日事件的文本标注（指定dfts数据集）
  geom_text(data = dfts, aes(x = start, y = position, label = event, hjust = 1.1),
            size = 2, inherit.aes = FALSE)

# 输出合并后的图表
print(timeline_plot)

关键修改说明 #

• 移除不必要的NA行：无需为合并图表给dfts添加NA，每个geom可独立使用自身数据集
• 扩展日期范围：将多日事件的起止日期纳入日期范围计算，确保所有事件都在可视范围内
• 叠加多日事件图层：使用geom_segment和geom_text时，通过data = dfts指定多日事件数据集，并设置inherit.aes = FALSE避免继承主图表的x/y映射
• 调整垂直位置：保留dfts中设置的position参数，让多日事件在不同高度显示，避免和单日事件标注重叠

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