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

Question

如何将表示时间（以小时为单位）的数字从数字格式转换为 HMS 格式。

例如：

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

Answer 1

转换为秒，利用seconds_to_periodsfromlubridate并将其更改为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)

Answer 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)

Answer 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"