是否存在difftime()版本矢量?

在基R中 as.numeric 函数接受 units = 可以与一起使用的论点 diff() 其在输出中提供灵活性:

# time 1, in seconds
as.numeric(diff(time1), units = "secs")
# [1] 1 1
as.numeric(diff(time1), units = "days")
# [1] 1.157407e-05 1.157407e-05

# time 2, in days
as.numeric(diff(time2), units = "days")
# [1] 1 1
as.numeric(diff(time2), units = "secs")
# [1] 86400 86400

如果你想要更大的灵活性,你可以使用我的功能 time_diff() 使用 lubridate 以支持周期时间差异以及通常的持续时间差异。

# remotes::install_github("NicChr/timeplyr")
library(timeplyr)
library(dplyr)
library(lubridate)

tdiff <- function(x, n = 1, ...){
  out <- time_diff(dplyr::lag(x, n = n), x, ...)
  tail(out, n = -n)
}

tdiff(time1, by = "sec", n = 1)
#> [1] 1 1
# Period or duration differences
tdiff(time1, by = "month", type = "period")
#> [1] 3.733572e-07 3.733572e-07
tdiff(time1, by = "month", type = "duration")
#> [1] 3.802571e-07 3.802571e-07

^{创建于2023-05-04 reprex v2.0.2}

是的,您可以将difftime()函数与向量一起使用,方法是将time1和time2参数指定为相同长度的向量。要计算特定单位的时差,可以将单位参数设置为所需的单位。