lubridate::floor_date如何设置自定义参考起始时间戳

lubridate的floor_date函数提供原生参数支持自定义取整基准，无需提前转换时区： #

核心参数说明 #

从v1.6.0版本开始，floor_date、ceiling_date、round_date系列函数新增origin参数，传入该参数即可指定任意时间作为取整的起始基准，优先级高于默认的午夜基准。 #

适配需求场景 #

场景1：以时间序列第一个值为基准取整 #

以示例数据为例，设置5小时间隔、以首个时间戳为基准向下取整的代码如下：

library(lubridate)

# 示例时间序列
timestamps <- structure(c(1578628800, 1578632400, 1578636000, 1578639600, 1578643200, 
                          1578646800, 1578650400, 1578654000, 1578657600, 1578661200), 
                        class = c("POSIXct", "POSIXt"), tzone = "UTC")

# 自定义基准取整
floor_date(timestamps, "5 hours", origin = timestamps[1])

运行后输出的取整节点为2020-01-10 04:00:00 UTC、2020-01-10 09:00:00 UTC、2020-01-10 14:00:00 UTC，符合预期。 #

场景2：按本地时间固定节点（如6:00、18:00）取整，保留UTC时区 #

只需先将本地时间的基准节点转换为对应UTC时间，传入origin参数即可，无需转换整个时间序列的时区。以东8区（北京时间）为例，本地6:00对应UTC前一天22:00，代码如下：

# 计算对应UTC基准时间
cn_6_utc <- ymd_hms("2020-01-09 22:00:00", tz = "UTC")
# 12小时间隔向下取整
floor_date(timestamps, "12 hours", origin = cn_6_utc)

运行后输出的取整节点对应北京时间的6:00和18:00，时区保留为UTC。 #

旧版本兼容方案 #

如果你的lubridate版本低于v1.6.0没有origin参数，可以用手动计算的方式实现相同效果：

# 自定义间隔（示例为5小时）
interval_sec <- as.numeric(hours(5))
# 计算每个时间和基准的差值，按间隔取整后回加基准
difftime_sec <- as.numeric(timestamps - timestamps[1], units = "secs")
result <- timestamps[1] + floor(difftime_sec / interval_sec) * interval_sec

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