どのように時間を丸めるには？

Question

私は時間のベクトルを持っています。たとえば ：

vec.hours <- c("15:52:00", "15:56:00", "12:10:00", "15:12:00", "11:49:00" ,"13:35:00", "14:53:00") 

私は、最寄りの全体5分、このような なり、新たな時間を得るために時間を丸めるしたいと思います。

round.hours <- c("15:50:00", "16:00:00", "12:10:00", "15:10:00", "11:50:00" ,"13:35:00", "14:55:00") 

私はこの

hour <- strptime(vec.hours , "%H:%M:%S") 
round.hour <- round(hour , "mins") 

を試みたが、それが機能していません。私はこのような例+/- 1時間、やりたい各round.hoursための後

：そう

hour.rd <- strptime(round.hours[1] , "%H:%M:%S") 
hourM <- hour.rd - 3600 
hourP <- hour.rd + 3600 
l.tm <- timeSequence(from = hourM, to = hourP,format = "%H-%S-%M",by="5 min",FinCenter = "Europe/Zurich") 

を、午後03時50分00秒のために私は夜02時50分からの時間のベクトルを持っています16:50まで。

私はvec.hoursからround.hourを取得する方法を知りません。

感謝

Answer 1

私は、あなたが整数の除算を使用してラウンド、整数として分にアクセスすることを可能にする、POSIXltにこれらを変換し、DateTimeオブジェクトに時間をかけ、再び時間を抽出します。

timestamps <- as.POSIXlt(as.POSIXct('1900-1-1', tz='UTC') + as.difftime(vec.hours)) 
timestamps$min <- (timestamps$min + 5/2) %/% 5 * 5 
format(timestamps, format='%H:%M:%S') 
# [1] "15:50:00" "15:55:00" "12:10:00" "15:10:00" "11:50:00" "13:35:00" "14:55:00" 

Answer 2

xtsパッケージからは、これは、次の期間の先頭にタイムスタンプを変更しますalign.time

# align to next whole 5 min interval 
align.time(hour, 5*60) 
[1] "2013-06-14 15:55:00 CEST" "2013-06-14 16:00:00 CEST" "2013-06-14 12:15:00 CEST" "2013-06-14 15:15:00 CEST" 
[5] "2013-06-14 11:50:00 CEST" "2013-06-14 13:40:00 CEST" "2013-06-14 14:55:00 CEST" 

を使用することができ、最寄りに開始することでOP、わずかに異なります期間。 - 答えhereに基づいて

Answer 3

代替、その後、300で結果を掛け300で割った後、ラウンド（* 60秒5分）：

format(as.POSIXlt(as.POSIXct('2000-1-1', "UTC") + 
        round(as.numeric(hours)/300)*300), 
     format = "%H:%M:%S") 

#[1] "15:50:00" "15:55:00" "12:10:00" "15:10:00" "11:50:00" "13:35:00" "14:55:00" 

Answer 4

Lubridateパッケージは非常に友好round_date機能を持っています。

round_date(hour,unit="5 minutes") 

[1] "2017-08-28 15:50:00 UTC" "2017-08-28 15:55:00 UTC" 
[3] "2017-08-28 12:10:00 UTC" "2017-08-28 15:10:00 UTC" 
[5] "2017-08-28 11:50:00 UTC" "2017-08-28 13:35:00 UTC" 
[7] "2017-08-28 14:55:00 UTC"