我有如下日期时间列表:
data <- data.frame(datetimes = c(ymd_hms("2024-01-01 04:12:35"),
ymd_hms("2024-04-01 14:52:20"),
ymd_hms("2024-03-18 23:43:56")))
我想将这些日期时间四舍五入/捕捉到一天中指定时间的下一个时间.
例如，如果我 Select 时间10:30:00，我想对这些日期中的每个日期进行四舍五入，以便:
2024-01-01 04:12:35变成-2024-01-01 10:30:00.
2024-04-01 14:52:20变成-2024-04-02 10:30:00.
2024-03-18 23:43:56变成-2024-03-19 10:30:00.
有没有方法可以轻松做到这一点？
谢谢
1)如果日期时间超过10:30:00，则将1添加到日期，然后粘贴10:30:00并转换回POSIXct.
library(dplyr)
library(lubridate)
cutoff <- "10:30:00" # specify as string
data %>%
mutate(datetimes2 =
(as.Date(datetimes) + (sub(".* ", "", datetimes) > cutoff)) %>%
paste(cutoff) %>%
ymd_hms)
## datetimes datetimes2
## 1 2024-01-01 04:12:35 2024-01-01 10:30:00
## 2 2024-04-01 14:52:20 2024-04-02 10:30:00
## 3 2024-03-18 23:43:56 2024-03-19 10:30:00
2)或者减go 10.5*3600，提取日期，添加1，转换回POSIXct并重新添加秒数.
cutoff <- 10.5 * 3600 # specify in seconds
data %>%
mutate(datatimes2 = as.POSIXct(as.Date(datetimes-cutoff)+1) + cutoff)
## datetimes datatimes2
## 1 2024-01-01 04:12:35 2024-01-01 10:30:00
## 2 2024-04-01 14:52:20 2024-04-02 10:30:00
## 3 2024-03-18 23:43:56 2024-03-19 10:30:00