润滑周期的绝对值

Question

我正在尝试使用 lubridate 确定两个日期之间的绝对天数。

library(lubridate)

dates <- data.frame(
  time1 = date(c("2011-01-01", "2012-01-01", "2013-01-01")),
  time2 = date(c("2011-01-02", "2011-12-31", "2013-01-01"))
)

dates$diff <- days(dates$time1 - dates$time2)

dates$diff

[1] "-1d 0H 0M 0S" "1d 0H 0M 0S"  "0S"

abs(dates$diff)

[1] "-1d 0H 0M 0S" "1d 0H 0M 0S"  "0S"

我原以为所有的值都是正的。此外，min和max不return最小值和最大值。

min(dates$diff)

[1] 0

max(dates$diff)

[1] 0

为什么这些函数在 lubridate 个周期上的行为与在 numeric/integer 个对象上的行为不同？

Answer 1

简单的答案是来自 lubridate 的 period class 对象不是简单的数字对象。它们是 S4 对象。它们的主要数据成员是秒的数值向量，分、时、日和年都存储为属性。当您尝试在 period 对象上应用数学运算符时，运算符不会应用于属性，只会应用于主要数值向量，即秒部分。

如果我们创建一个 -1 秒的 period，我们可以看到这一点：

library(lubridate)

p <- as.period(diff(as.POSIXct(c("2020-09-24 21:00:01", "2020-09-24 21:00:00"))))

p
#> [1] "-1S"

abs(p)
#> [1] "1S"

现在让我们检查一下对象的属性：

attributes(p)
#> $year
#> [1] 0
#> 
#> $month
#> [1] 0
#> 
#> $day
#> [1] 0
#> 
#> $hour
#> [1] 0
#> 
#> $minute
#> [1] 0
#> 
#> $class
#> [1] "Period"
#> attr(,"package")
#> [1] "lubridate"

对于 S4 对象，您需要通过编写“Math”和“Summary”组泛型来定义 abs 和 min 等函数将执行的操作。但是，这些还没有为 class“period”定义，因此它们是在主数据向量（只是秒的向量）上调用的。 Ops 通用组 已经定义 ，这就是为什么你可以做 dates$diff / 2 之类的事情并得到一个明智的答案。

为什么没有定义它们？这是作者要回答的问题。同时，您可以通过使 abs 成为 S3 方法并专门编写 abs.period 方法来获得所需的功能，如下所示：

abs         <- function(x) UseMethod("abs")
abs.default <- function(x) base::abs(x)
abs.Period  <- function(out) 
{
   new("Period", abs(out$second), 
       year = abs(out$year), 
       month = abs(out$month), 
       day = abs(out$day), hour = abs(out$hour), 
       minute = abs(out$minute))
}

哪个会给出您预期的行为：

dates <- data.frame(
  time1 = date(c("2011-01-01", "2012-01-01", "2013-01-01")),
  time2 = date(c("2011-01-02", "2011-12-31", "2013-01-01"))
)

dates$diff <- days(dates$time1 - dates$time2)

abs(dates$diff)
#> [1] "1d 0H 0M 0S" "1d 0H 0M 0S" "0S"

但是，这可能不是一个好主意。最好使用 difftimes 进行算术运算，并在需要时转换为句点。

我希望这能澄清一些事情。

润滑周期的绝对值

Absolute value of lubridate periods

r

date

lubridate