Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/66.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 是否可以使用HH:MM:SS格式打印持续时间？ t1_R_Datetime_Lubridate - Fatal编程技术网
Fatal编程技术网
  • r/
  • R 是否可以使用HH:MM:SS格式打印持续时间？ t1

R 是否可以使用HH:MM:SS格式打印持续时间？ t1

r datetime

R 是否可以使用HH:MM:SS格式打印持续时间？ t1,r,datetime,lubridate,R,Datetime,Lubridate,您可以使用sprintffromlubridate中的seconds\u-to\u-period t1<-as.POSIXct("2017-03-02 11:58:20") t2<-as.POSIXct("2017-03-02 12:00:05") print(lubridate::as.duration(lubridate::interval(t1,t2))) 库（lubridate） td保持润滑心态： library(lubridate) td <- seconds_t

您可以使用
sprintf
from
lubridate
中的
seconds\u-to\u-period


t1<-as.POSIXct("2017-03-02 11:58:20")
t2<-as.POSIXct("2017-03-02 12:00:05")
print(lubridate::as.duration(lubridate::interval(t1,t2)))



库（lubridate）

td保持润滑心态：


library(lubridate)
td <- seconds_to_period(difftime(t2, t1, units = "secs"))
sprintf('%02d:%02d:%02d', td@hour, minute(td), second(td))
#[1] "00:01:45"



t1

t1<-as.POSIXct("2017-03-02 11:58:20")
t2<-as.POSIXct("2017-03-02 12:00:05")
dur <- lubridate::as.period(lubridate::as.duration(lubridate::interval(t1,t2)))
sprintf('%02d %02d:%02d:%02d', day(dur), hour(dur), minute(dur), second(dur))