R语言如何将浮点型小时数转换为12小时制时间戳

场景说明 #

数据框中存储的浮点型数值为带小数的小时计数：整数部分对应小时数，小数部分为不足1小时的占比，例如8.6对应8点36分，9.79对应9点47分。需要将这类数值转换为标准时间/时间戳格式，除手动拆分小数部分转分钟的实现外，可借助lubridate生态的工具用更简洁的代码完成转换。
示例测试数据如下：

df <- structure(list(start_time = c(8.6, 9.32, 9.79, 10.09, 10.63, 8.64)), row.names = c(NA, 6L), class = "data.frame")

最优实现（基于lubridate生态） #

不需要拆分整数、小数部分，利用时间单位换算逻辑直接转换即可：1小时对应3600秒，将浮点小时值乘以3600得到总秒数，直接传入时分秒解析函数就能得到结果，代码极简且计算精度和手动拆分完全一致。

# 加载lubridate（会自动加载依赖的hms时分秒处理包）
library(lubridate)

# 转换为时分秒格式（保留秒级精度）
df$hms_time <- hms::hms(seconds = df$start_time * 3600)

如果需要和示例中一样只保留到整分钟，对秒数做四舍五入即可：

# 转换为整分钟的时分秒格式
df$hms_time_min <- hms::hms(seconds = round(df$start_time * 3600 / 60) * 60)

转换后对应结果：

• 8.6 → 08:36:00
• 9.32 → 09:19:00
• 9.79 → 09:47:00
• 10.09 → 10:05:00
• 10.63 → 10:38:00
• 8.64 → 08:38:00

如果需要转换为带日期的POSIXct时间戳，直接用base R的时间转换函数即可，指定对应日期作为原点：

# 替换origin参数为你需要的基准日期，tz参数设置对应时区
df$posix_timestamp <- as.POSIXct(df$start_time * 3600, origin = "2024-01-01", tz = "Asia/Shanghai")

手动拆分方案验证 #

你最初考虑的拆分整数、小数部分转分钟的逻辑是完全可行的，只是代码步骤更多，本质数学逻辑和直接转秒的方案没有区别：

# 手动拆分实现
hour_comp <- floor(df$start_time)
minute_comp <- (df$start_time - hour_comp) * 60
df$manual_time <- hms::hms(hours = hour_comp, minutes = minute_comp)

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