R 中将时间四舍五入到最接近的小时

Question

这个问题已经有答案了:

Round a POSIX date and time (posixct) to a date relative to a timezone (1 个回答)

已关闭 10 年前。

我有以下格式的数据

time <-  c("16:53", "10:57", "11:58")

等等

我想创建一个新列，其中每个时间都四舍五入到最接近的小时。我似乎无法让 POSIX 命令为我工作。

as.character(format(data2$time, "%H:%M"))

format.default(结构(as.character(x)，名称=名称(x)，暗淡=暗淡(x)，: 无效的“修剪”参数

更不用说使用 round 命令了。谁能给点建议吗？

Answer 1

## Example times
x <- c("16:53", "10:57", "11:58")

## POSIX*t objects need both date and time specified
## Here, the particular date doesn't matter -- just that there is one.
tt <- strptime(paste("2001-01-01", x), format="%Y-%m-%d %H:%M")

## Use round.Date to round, then format to format
format(round(tt, units="hours"), format="%H:%M")
# [1] "17:00" "11:00" "12:00"