r - 将秒转换为天 : hours:minutes:seconds

Question

我想在 中将秒转换为小时分和秒R .

例子

86400seconds-1day

gmdate("d H:i:s",86400)

这就是我尝试的方式。

Answer 1

你可以试试

library(lubridate)
seconds_to_period(86400)
#[1] "1d 0H 0M 0S"

seconds_to_period(48000)
#[1] "13H 20M 0S"

如果您需要 format

td <- seconds_to_period(86400)
sprintf('%02d %02d:%02d:%02d', day(td), td@hour, minute(td), second(td))
#[1] "01 00:00:00"

如果它跨越 >99天，

td <- seconds_to_period(1e7)
sprintf('%03d %02d:%02d:%02d', day(td), td@hour, minute(td), second(td))
#[1] "115 17:46:40"