Cách tạo chênh lệch thời gian trong cùng một đơn vị khi trừ POSIXct

Question

Tôi muốn trừ thành POSIXct. Tôi có thể làm điều này nhưng tùy thuộc vào hàng đầu tiên (tôi đoán?) Sự khác biệt sẽ là trong vài giây hoặc vài phút. Dưới đây bạn sẽ nhìn thấy diff đầu tiên là chỉ trong vài giây và diff thứ hai là trong vài phút vì tôi đã thay đổi chênh lệch thời gian trong hàng đầu tiên:

#diff in seconds because 1st row time diff is small? 
t1<- as.POSIXct(c("2015-02-02 20:18:03 00:00:00", "2015-02-02 20:17:02 00:00:00"),"GMT") 
t2<- as.POSIXct(c("2015-02-02 20:18:02 00:00:00","2015-02-02 20:18:02 00:00:00"),"GMT") 
d<-data.frame(t1= t1, t2= t2) 
d$t1-d$t2 


#diff in seconds because 1st row time diff is larger? 
t1<- as.POSIXct(c("2015-02-02 20:13:03 00:00:00", "2015-02-02 20:17:02 00:00:00"),"GMT") 
t2<- as.POSIXct(c("2015-02-02 20:18:02 00:00:00","2015-02-02 20:18:02 00:00:00"),"GMT") 
d<-data.frame(t1= t1, t2= t2) 
d$t1-d$t2 

kết quả:

> #diff in seconds because 1st row time diff is small? 
> t1<- as.POSIXct(c("2015-02-02 20:18:03 00:00:00", "2015-02-02 20:17:02 00:00:00"),"GMT") 
> t2<- as.POSIXct(c("2015-02-02 20:18:02 00:00:00","2015-02-02 20:18:02 00:00:00"),"GMT") 
> d<-data.frame(t1= t1, t2= t2) 
> d$t1-d$t2 
Time differences in secs 
[1] 1 -60 
> 
> 
> #diff in seconds because 1st row time diff is larger? 
> t1<- as.POSIXct(c("2015-02-02 20:13:03 00:00:00", "2015-02-02 20:17:02 00:00:00"),"GMT") 
> t2<- as.POSIXct(c("2015-02-02 20:18:02 00:00:00","2015-02-02 20:18:02 00:00:00"),"GMT") 
> d<-data.frame(t1= t1, t2= t2) 
> d$t1-d$t2 
Time differences in mins 
[1] -4.983333 -1.000000 

Tôi muốn sự khác biệt để LUÔN LUÔN là trong vài giây bất kể sự khác biệt hàng đầu tiên là gì. Có cách nào để thực hiện điều này không?

Cảm ơn bạn.

Answer 1

Bạn có thể sử dụng difftime cho rằng đề xuất cho phép bạn chỉ định các đơn vị đo lường, ví dụ

difftime(t1, t2, units = "secs") 

Một cách khác (như đã đề cập bởi @nicola và hiện diện trong cùng một tài liệu) là để tận dụng lợi thế của thực tế là - có một phương pháp -.POSIXt và ghi đè lên các đơn vị đo lường sau phẫu thuật trừ sử dụng phương pháp thay thế units<-

res <- t1 - t2 
units(res) <- "secs"