指示日期屬於哪個間隔

Question

4/1/2014 0:11   40.769  -73.9549    B02512|
4/1/2014 0:17   40.7267 -74.0345    B02512|
4/1/2014 0:21   40.7316 -73.9873    B02512|
4/1/2014 0:28   40.7588 -73.9776    B02512|
4/1/2014 0:33   40.7594 -73.9722    B02512|
4/1/2014 0:33   40.7383 -74.0403    B02512|

我創建了一個時間間隔對象，它看起來像這樣C--2014-04-11 00:15:00 UTC 2014-04-11 00:15:00 UTC （它的一部分）我想要做的是添加原始數據的一列，指示每一行，它屬於哪個時間間隔（由時間間隔開始的單個時間點表示）

所以我的數據看起來像這樣：

4/1/2014 0:11   40.769  -73.9549    B02512  4/1/2014 0:00|
4/1/2014 0:17   40.7267 -74.0345    B02512  4/1/2014 0:15|

我怎樣才能做到這一點 ？

Answer 1

使用lubridate的floor_date函數：

df$interv<-lubridate::floor_date(df$time, unit="15 minutes")

（這假設您的時間列是某種公認的日期時間格式（例如 POSIXt），這似乎不是您的樣本格式。）

例如：

a<-Sys.time()
a
[1] "2019-01-08 09:22:22 EST"
floor_date(a,unit="15 minutes")
[1] "2019-01-08 09:15:00 EST"