Question

考虑日期：

options(digits.secs = 6)
library(lubridate)

this_special_date <- with_tz(as.POSIXct(strptime('2017-11-20 23:00:00.051438000',
                                                 '%Y-%m-%d %H:%M:%OS', tz = 'GMT')),
                             tzone='Asia/Tokyo')

现在，我可以使用this answer中的myformat.POSIXct函数将其四舍五入到最接近的毫秒：

myformat.POSIXct <- function(x, digits=0) {
  x2 <- round(unclass(x), digits)
  attributes(x2) <- attributes(x)
  x <- as.POSIXlt(x2)
  x$sec <- round(x$sec, digits) + 10^(-digits-1)
  format.POSIXlt(x, paste("%Y-%m-%d %H:%M:%OS",digits,sep=""))
}
myformat.POSIXct(this_special_date, digits=3)

返回：“2017-11-21 08：00：00.051”。但是如何围绕POSIXct时间到下一个毫秒？ --i.e。在上面的情况下，它将是 “2017-11-21 08：00：00.052”。

Answer 1

myceil.POSIXct <- function(x, digits=0) {
  x1 <- as.numeric(x)
  x1 <- ceiling(x1 * 10 ^ digits) / 10 ^ digits
  attributes(x1) <- attributes(x)
  x1
}

myceil.POSIXct(this_special_date, 3)
#[1] "2017-11-21 08:00:00.052 JST"

Answer 2

你可以为所有值添加00.0005吗？这将确保它们始终相对于起始值进行四舍五入。

df2[list(df2["c"].head(1).tolist()[0].keys())] = df2["c"].apply(
    lambda x: pd.Series([x[key] for key in x.keys()]))

舍入时间到下一个毫秒

2 个答案: