khoảng thời gian định dạng để hiển thị giờ, phút, giây

Question

Tôi đã cố gắng tìm một cách đơn giản để định dạng đầu ra từ difftime thành HH: MM: SS.ms. Cho đến nay tôi đã không đi qua bất cứ điều gì mà tôi đã ngạc nhiên bởi.

Tôi đã viết hàm bên dưới gần như vậy. Giới hạn là việc trình bày các con số dưới dạng các chữ số có nghĩa. ví dụ: 2hr, 3mins, 4.5secs trở thành "2: 3: 4.5" thay vì "02: 03: 04.5"

Có ai có đề xuất tốt hơn không?

format.timediff <- function(start_time) { 
    diff = as.numeric(difftime(Sys.time(), start_time, units="mins")) 
    hr <- diff%/%60 
    min <- floor(diff - hr * 60) 
    sec <- round(diff%%1 * 60,digits=2) 

    return(paste(hr,min,sec,sep=':')) 
} 

Answer 1

Ngoài @ bình luận GSee, bạn có thể sử dụng một chức năng như thế này:

f <- function(start_time) { 
    start_time <- as.POSIXct(start_time) 
    dt <- difftime(Sys.time(), start_time, units="secs") 
    # Since you only want the H:M:S, we can ignore the date... 
    # but you have to be careful about time-zone issues 
    format(.POSIXct(dt,tz="GMT"), "%H:%M:%S") 
} 
f(Sys.Date()) 

Answer 2

Merge_Charge_Point$Duration<- difftime(Merge_Charge_Point$EndConnectionDateTime, Merge_Charge_Point$StartConnectionDateTime, units="secs") 

Đây là mã. Nhưng mã này biến đổi dữ liệu thành giây nhưng kết quả phải là một chuỗi thời gian.