有没有一种方法可以在r中不超过内存的情况下舍入日期？

Question

我正在处理一个数据集，我将 posixct 日期四舍五入到具有 8800 万行的 data.table 一列的最接近小时。

我用的是圆形。 date by base 和 round_date by lubridate，两者都超出内存，所以无法完成。 最后，我将数据集分成 4 个相等的部分，将必要的列四舍五入，然后重新绑定。

有没有一种好的方法来以更高的内存效率来舍入日期

提前致谢

Answer 1

这应该工作得很好而且很快

#sample data
library( data.table )
n = 1000000
set.seed(123)
DT <- data.table( id = 1:n, 
                  timestamp = sample(seq(as.POSIXct('2017/01/01'), as.POSIXct('2020/05/01'), by="5 mins"), replace = TRUE, n) )

#split timestamp to iDate and iTime
DT[, c("date", "time") := IDateTime( timestamp ) ]
#round the iTime
DT[, time_rounded := round( time, units = "hour" )]
#convert iDate and rounded iTime back to posixct (add timezone if needed)
DT[, timestamp_rounded := as.POSIXct( time_rounded, date = date ) ]

可能的问题：四舍五入到第二天的 00:00……您应该对此进行测试并根据需要调整日期……