绘制时间直方图X轴超24小时及合并跨零点柱状条的问题

问题根源 #

1. X轴超出24小时：lubridate::hms()生成的是「时长类型」，而非「单日时间点」。ggplot会把它当作连续的秒数值处理，哪怕所有时间都在一天内，数值范围也会覆盖0到86400（24小时总秒数），再加上ggplot自动扩展轴范围的逻辑，就会出现X轴看似超出24小时的情况；另外默认刻度格式未针对性设置，也会加剧显示异常。
2. 无法合并23:00-01:00的柱子：常规直方图是线性坐标轴，0点和23点处于轴的两端，天然断开。要合并这两个区间，必须把时间当作「环形数据」处理，让0点的数值衔接23点的数值。

具体解决步骤 #

以下用示例数据演示，可直接套用到你的df1上：

1. 转换时间为单日秒数

先把时间列转成单日总秒数，方便后续操作：

library(lubridate)
library(ggplot2)

# 模拟你的df1（替换成你自己的数据）
df1 <- data.frame(
  time = c("23:10", "23:50", "00:05", "00:40", "01:05", "10:30", "16:15")
)

# 转成hms格式后提取总秒数
df1$time_sec <- as.numeric(hms(df1$time))

2. 处理环形时间（实现23点与0点衔接）

把00:00-01:00的时间秒数加上86400（24小时的秒数），让0点的数值变成24小时+0分，和23点的数值自然衔接：

# 设定阈值：01:00对应的秒数是3600
threshold <- 3600
df1$time_circular <- ifelse(df1$time_sec < threshold, df1$time_sec + 86400, df1$time_sec)

3. 绘制合并后的直方图

设置X轴范围为23:00到次日01:00的秒数，再自定义刻度标签，让24小时的位置显示为00:00：

ggplot(df1, aes(x = time_circular)) +
  geom_histogram(binwidth = 3600,  # 按小时分箱，可根据需求调整宽度
                 fill = "steelblue", color = "white") +
  scale_x_continuous(
    breaks = c(82800, 86400, 90000),  # 对应23:00、24:00(00:00)、01:00的秒数
    labels = c("23:00", "00:00", "01:00"),
    limits = c(82800, 90000)
  ) +
  labs(x = "时间", y = "频数") +
  theme_minimal()

4. 常规场景下修正X轴超出24小时问题（无需合并柱子）

如果只是想让X轴正常显示0-24小时，直接设置scale_x_time即可：

ggplot(df1, aes(x = hms(time_sec))) +
  geom_histogram(binwidth = 3600, fill = "steelblue", color = "white") +
  scale_x_time(
    limits = c(hms("00:00:00"), hms("24:00:00")),
    breaks = hms(c("00:00:00", "06:00:00", "12:00:00", "18:00:00", "24:00:00")),
    labels = c("00:00", "06:00", "12:00", "18:00", "24:00")
  ) +
  labs(x = "时间", y = "频数") +
  theme_minimal()

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