如何在R中将自定义时段刻度数值转换为标准时间格式？

你之前的方法失效原因在于：你的x是以8:00为起点的小时偏移量，而非从00:00开始的全天时间比例，直接用chron::times或POSIXct从0点计算自然会偏离预期。

以下是三种可行的实现方式，都能精准匹配你的时间映射规则：

方法1：基础R原生实现（无需额外包） #

直接通过分钟数计算并格式化：

# 起始时间（8:00）对应的总分钟数
start_min <- 8 * 60
# 计算每个x对应的总分钟数：起始分钟 + x小时转换的分钟
total_min <- start_min + x * 60
# 提取小时和分钟（分钟四舍五入到整数）
hours <- total_min %/% 60
minutes <- round(total_min %% 60)
# 格式化为HH:MM格式
time_str <- sprintf("%02d:%02d", hours, minutes)

# 查看前6个结果验证
head(time_str)
# 输出：[1] "08:02" "08:29" "08:48" "08:59" "09:01" "09:33"

验证示例：x=0.5时，总分钟数为480+30=510，对应08:30；x=8.5时，总分钟数为480+510=990，对应16:30，完全符合预期。

方法2：用lubridate包（更灵活） #

适合需要后续时间操作的场景：

library(lubridate)

# 定义起始时间（任意日期的8:00）
start_time <- ymd_hms("2024-01-01 08:00:00", tz = "UTC")
# 给起始时间加上x对应的小时时长
result_time <- start_time + hours(x)
# 格式化为HH:MM
time_str <- format(result_time, "%H:%M")

方法3：修正你原有的chron方法 #

如果坚持使用chron，需先将x转换为以00:00为起点的全天比例：

library(chron)
# 将x转换为从0点开始的时间比例：(8点的比例 + x小时的比例)
chron_time <- times((8 + x)/24)
# 提取HH:MM部分
time_str <- substr(chron_time, 1, 5)

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