将时间以小时为单位从数字转换为 HMS 格式答案

【问题标题】：Convert time in hours from numeric to HMS format将时间以小时为单位从数字转换为 HMS 格式
【发布时间】：2020-11-26 10:20:38
【问题描述】：

如何将表示时间的数字从数字转换为 HMS 格式。

例如：

8.0 -> 08:00:00
0.5 -> 00:30:00
0.25 -> 00:15:00

【问题讨论】：

这能回答你的问题吗？ How to convert decimal time to time format
您能否指定所需输出的class - 它是character 还是专用的时间类？如果是后者，你有data.table::as.ITime(x*3600)。
...或chron::times(x/24)。
Convert decimal hours to HH:MM:SS

【解决方案1】：

转换为秒，利用seconds_to_periods从lubridate改成hms

hms::hms(lubridate::seconds_to_period(floor(v1 * 60 *60)))
#08:00:00
#00:30:00
#00:15:00

v1 <- c(8, 0.5, 0.25)

【讨论】：

【解决方案2】：

这是一个基本的 R 选项

h <- x%/%1
m <- floor(x%%1 * 60)
s <- round((x%%1 * 60)%%1*60)
sprintf("%02d:%02d:%02d",h,m,s)

这样

> sprintf("%02d:%02d:%02d",h,m,s)
[1] "08:00:00" "00:30:00" "00:15:00" "03:45:22"

数据

x <- c(8.0,0.5,0.25,3.756)

【讨论】：

【解决方案3】：

另一个基本 R 选项：

x <- c(8, 0.5, 0.25)
format(as.POSIXct(x * 3600, origin = '1970-01-01', tz = 'UTC'), '%T')
#[1] "08:00:00" "00:30:00" "00:15:00"

【讨论】：