如何将DataFrame中的DateTime按45分钟间隔精准取整？

你遇到的问题是因为lubridate::round_date()的默认取整逻辑和你预期的区间划分方式不一致——它是基于从纪元开始的总时间来四舍五入到最近的45分钟倍数，但你需要的是以45分钟为区间、以区间中点为分界点，四舍五入到区间起点的逻辑。下面提供两种完全匹配你预期结果的方法：

方法一：自定义分钟数计算（推荐，无需预设区间） #

这种方法通过计算当天的总分钟数，手动实现符合你需求的四舍五入逻辑，适配任意日期场景：

library(lubridate)

# 你的原始数据
df <- data.frame(DateTime=c("2016-08-23 00:22:23","2016-08-23 00:26:38","2016-08-23 01:04:12","2016-08-23 02:27:58","2016-08-23 03:04:31","2016-08-23 04:51:46"))
df$DateTime <- as.POSIXct(df$DateTime, format="%Y-%m-%d %H:%M:%S", tz="UTC")

# 1. 计算每个时间点的当天总分钟数（包含秒数的小数部分）
total_mins <- hour(df$DateTime)*60 + minute(df$DateTime) + second(df$DateTime)/60

# 2. 四舍五入到最近的45分钟倍数
rounded_mins <- round(total_mins / 45) * 45

# 3. 转换为对应的DateTime：当天0点加上四舍五入后的分钟数
df$DateTime45 <- floor_date(df$DateTime, "day") + minutes(rounded_mins)

运行后得到的结果完全符合你的预期：

DateTime           DateTime45
1 2016-08-23 00:22:23 2016-08-23 00:00:00
2 2016-08-23 00:26:38 2016-08-23 00:45:00
3 2016-08-23 01:04:12 2016-08-23 00:45:00
4 2016-08-23 02:27:58 2016-08-23 02:15:00
5 2016-08-23 03:04:31 2016-08-23 03:00:00
6 2016-08-23 04:51:46 2016-08-23 04:30:00

方法二：基于预设区间序列匹配 #

如果你已经生成了固定的45分钟间隔序列，可以通过调整时间后匹配区间起点来实现需求：

library(lubridate)

# 你的原始数据
df <- data.frame(DateTime=c("2016-08-23 00:22:23","2016-08-23 00:26:38","2016-08-23 01:04:12","2016-08-23 02:27:58","2016-08-23 03:04:31","2016-08-23 04:51:46"))
df$DateTime <- as.POSIXct(df$DateTime, format="%Y-%m-%d %H:%M:%S", tz="UTC")

# 生成预设的45分钟间隔序列
TimeIntervalLimits <- seq.POSIXt(as.POSIXct("2016-08-23 00:00:00"), as.POSIXct("2016-08-24 00:45:00"), by = "45 min", tz="UTC")

# 将时间提前22.5分钟（45分钟的一半），再找到对应的区间起点
# 这样就实现了以区间中点为分界的四舍五入逻辑
df$DateTime45 <- TimeIntervalLimits[findInterval(df$DateTime - minutes(22.5), TimeIntervalLimits)]

这个方法的核心是：把每个时间点减去区间长度的一半，再用findInterval找到小于等于该时间的最大区间起点，等价于以区间中点为界进行四舍五入。

内容的提问来源于stack exchange，提问作者Dekike