如何在ggplot中设置X轴为21:00至次日05:00的夜间时间刻度

问题根源 #

将时间转换为hms类型后，它本质是一天内的秒数（0-86400），默认按00:00到24:00的自然顺序排列。而你需要的21:00至次日05:00跨越了午夜，常规时间轴无法直接呈现这种跨天连续时段，因此需要手动调整坐标轴的刻度与范围。

解决方案：转换时间为跨天数值 #

把00:00-05:00的时间加上一天的秒数（86400），让它们的数值大于21:00的秒数，这样X轴就能按21:00→22:00→...→00:00→...→05:00的顺序排列：

library(tidyverse)
library(hms)

set.seed(123) # 固定随机数，方便复现效果
test <- data.frame(day = as.factor(rep(1:3, each = 8)),
                   time = rep(seq(from = as.POSIXct("2025-05-03 21:00", tz = "UTC"), 
                                  to = as.POSIXct("2025-05-04 04:00", tz = "UTC"), 
                                  by = "hour"), 3),
                   count = sample(1:50, 24, replace = TRUE)) %>%
  mutate(
    time = as_hms(time),
    # 转换为秒数：00:00-05:00的时间加一天秒数，让数值落在21:00之后
    time_adjusted = ifelse(as.numeric(time) < 5*3600, 
                           as.numeric(time) + 86400, 
                           as.numeric(time))
  )

# 定义刻度位置和对应标签
break_positions <- c(21:24, 0:5) %>% 
  map_dbl(~ ifelse(.x <=24, .x*3600, (.x+24)*3600))
break_labels <- c("21:00", "22:00", "23:00", "00:00", 
                  "01:00", "02:00", "03:00", "04:00", "05:00")

test %>%
  ggplot(aes(x = time_adjusted, y = count, fill = day)) +
  geom_bar(position = "dodge", stat = "identity") +
  scale_x_continuous(
    breaks = break_positions,
    labels = break_labels,
    expand = c(0.02, 0) # 调整边距，避免条形贴轴
  ) +
  labs(x = "Time", y = "Count") +
  theme_minimal()

这个方法通过数值转换打破hms的一天限制，让跨午夜的时间在数值上连续，再通过自定义刻度标签还原时段，完美呈现你需要的夜间时间轴顺序。

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