如何在ggplot2中为多小时数据的X轴跨日期分组显示？

针对你需要的“日期作为上层标签、小时作为下层标签，日期不重复跨对应小时显示”的需求，以下是两种可行方案：

方案1：使用ggh4x包实现原生嵌套轴标签 #

ggh4x是ggplot2的扩展包，专门提供高级轴和分面功能，其中guide_axis_nested()可以直接实现类似gt包tab_spanner的嵌套轴效果。

步骤1：准备示例数据 #

先构造符合你场景的数据集（3天，每天6-18点共13个小时）：

library(tidyverse)
library(lubridate)

# 生成时间序列
datetime_seq <- seq(ymd_h("2024-05-01 06"), ymd_h("2024-05-03 18"), by = "1 hour")
df <- tibble(
  datetime = datetime_seq,
  value = rnorm(length(datetime_seq), mean = 20, sd = 3)
) %>%
  # 提取日期和小时用于分组
  mutate(
    date = as.character(as_date(datetime)),
    hour = hour(datetime)
  )

步骤2：绘制嵌套轴图表 #

library(ggh4x)

ggplot(df, aes(x = interaction(date, hour, sep = "|"), y = value)) +
  geom_line(group = 1) +
  geom_point(size = 2) +
  # 设置嵌套轴：按分隔符"|"拆分上层（日期）和下层（小时）标签
  scale_x_discrete(
    guide = guide_axis_nested(delim = "|"),
    # 格式化小时标签为HH:00格式
    labels = function(x) str_split(x, "\\|") %>% map_chr(~ paste0(.x[2], ":00"))
  ) +
  labs(
    x = NULL,
    y = "数值",
    title = "跨天小时数据趋势"
  ) +
  theme_minimal() +
  theme(
    # 调整上层日期标签样式，突出显示
    axis.text.x.top = element_text(face = "bold", color = "#2c3e50", margin = margin(b = 6)),
    # 去掉X轴刻度线，让布局更简洁
    axis.ticks.x = element_blank()
  )

方案2：用facet模拟分组轴（无需额外包） #

如果不想安装扩展包，可以用ggplot2原生的facet功能模拟，将日期作为横向分面，每个分面内显示小时：

ggplot(df, aes(x = hour, y = value)) +
  geom_line(group = 1, linewidth = 1) +
  geom_point(size = 2) +
  # 将日期作为横向分面，设置面板无间距、刻度自由
  facet_grid(. ~ date, space = "free_x", scales = "free_x", switch = "x") +
  # 设置小时刻度和标签
  scale_x_continuous(breaks = unique(df$hour), labels = ~ paste0(.x, ":00")) +
  labs(
    x = NULL,
    y = "数值",
    title = "跨天小时数据趋势"
  ) +
  theme_minimal() +
  theme(
    # 将分面标签移到X轴上方
    strip.placement = "outside",
    # 加粗日期标签
    strip.text.x = element_text(face = "bold", color = "#2c3e50"),
    # 去掉面板间距，让图表看起来连续
    panel.spacing.x = unit(0, "mm")
  )

方案对比 #

• 方案1：视觉上是单一X轴，日期标签跨对应小时，完全匹配你要的tab_spanner效果，推荐优先使用。
• 方案2：依赖原生facet功能，无需额外安装包，但本质是多个面板拼接，适合对扩展包有顾虑的场景。

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