如何实现lubridate Period格式与小时数值的双向转换？

1. 将lubridate Period格式转为小时数值 #

直接提取Period对象的小时、分钟、秒分量，换算为总小时数即可。你的数据精度最小是15分钟，秒数均为0，计算时可简化，但保留秒的计算能兼容更通用场景：

# 单个Period示例
library(lubridate)
p <- period("3H 30M 0S")
hour_num <- hour(p) + minute(p)/60 + second(p)/3600
# 输出结果：3.5

处理数据集列时，结合dplyr批量转换：

library(dplyr)
df <- df %>% 
  mutate(hour_numeric = hour(time) + minute(time)/60 + second(time)/3600)

2. 将小时数值转回lubridate Period格式 #

拆分数值的整数部分（小时）和小数部分（换算为分钟、秒），再用period()函数构造Period对象——该函数要求时分秒参数为整数，刚好匹配我们拆分后的结果：

# 自定义转换函数
num_to_period <- function(x) {
  h <- floor(x)
  m <- floor((x - h) * 60)
  s <- round((x - h - m/60) * 3600) # 你的数据秒数为0，此步可省略
  period(h = h, m = m, s = s)
}

# 测试示例
num_to_period(2.75)
# 输出结果：2H 45M 0S

批量处理数据集：

df <- df %>% 
  mutate(time_period = num_to_period(hour_numeric))

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