R语言时间怎么算？

polhcujo 于 2023-03-20 发布在其他

关注(0)|答案(4)|浏览(143)

我有一个小时向量。例如：

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")

但它不起作用。
在每轮.小时之后，我想做+/-一个小时，例如：

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")

所以对于15：50：00我有一个向量，从14：50到16：50.
我不知道如何从vec. hours绕过。
多谢

来源：https://stackoverflow.com/questions/17108515/how-to-round-a-time

4条答案

按热度按时间

9njqaruj1#

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"

赞(0）回复(0）举报 2023-03-20

crcmnpdw2#

我将把小时放入datetime对象中，将它们转换为POSIXlt，这允许您将分钟作为整数访问，使用整数除法舍入，然后再次提取小时。

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"

赞(0）回复(0）举报 2023-03-20

quhf5bfb3#

从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略有不同，OP将从最近的周期开始。

赞(0）回复(0）举报 2023-03-20

cunj1qz14#

另一种选择是，基于答案here- round除以300（5分钟 * 60秒），然后将结果乘以300：

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"

赞(0）回复(0）举报 2023-03-20

我来回答

R语言时间怎么算？

4条答案

相关问题

热门标签

最新问答

R语言 时间怎么算？

4条答案

相关问题

热门标签

最新问答

R语言时间怎么算？