ggplot中如何将x轴的小时数值转换为HH:MM时间格式

要实现ggplot x轴的小时数值转为HH:MM格式，有两种常用方案：

方案1：自定义连续x轴标签（无需修改原始数据） #

直接在scale_x_continuous中传入自定义格式函数，无需调整原始数据结构：

library(ggplot2)
library(tibble)

# 原始示例数据（注：15分钟间隔对应步长应为0.25，原示例0.15为9分钟间隔，可按实际需求调整）
tbl <- tibble(x = seq(6, 22, 0.15),
              y = runif(n = 107))

ggplot(data = tbl,
       aes(x = x,
           y = y)) + 
  geom_line() + 
  theme_bw() +
  scale_x_continuous(
    # 自定义标签转换规则
    labels = function(hour_val) {
      format(as.POSIXct(hour_val * 3600, origin = "1970-01-01", tz = "UTC"), "%H:%M")
    },
    # 按需调整刻度间隔，此处设置为每2小时显示一个刻度
    breaks = seq(6, 22, 2)
  )

方案2：转换为时间类型后使用时间轴（更规范） #

先将数值型小时转为标准时间格式，再使用ggplot的时间轴配置，适合需要频繁处理时间相关逻辑的场景：

library(ggplot2)
library(tibble)
library(hms) # 用于处理时分秒类型

tbl <- tibble(x = seq(6, 22, 0.15),
              y = runif(n = 107))
# 将数值小时转为hms时间类型（小时转秒为单位传入）
tbl$x_time <- hms(seconds = tbl$x * 3600)

ggplot(data = tbl,
       aes(x = x_time,
           y = y)) + 
  geom_line() + 
  theme_bw() +
  scale_x_time(
    name = "时间",
    # 按需设置刻度间隔
    breaks = seq(hms(6*3600), hms(22*3600), by = 2*3600),
    date_labels = "%H:%M"
  )

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