R:将变量'difftime‘转换为变量'difftime’(以天为单位

Question

我有以下difftime类的向量x，以秒为单位表示一些时间跨度：

> x
Time differences in secs
[1]       0       0 7948800       0

> class(x)
[1] "difftime"

我想要转换变量，以便以天而不是秒来表示每个值

我怎么才能得到它呢？

Answer 1

要么像RonakShah建议的那样使用units=，

x <- difftime(Sys.time() + c(0, 100, 3*86400), Sys.time(), units = "days")
x
# Time differences in days
# [1] 0.000000000 0.001157407 3.000000000

或者在事后改变单位。

x <- difftime(Sys.time() + c(0, 100, 3*86400), Sys.time())
x
# Time differences in secs
# [1]      0    100 259200
units(x) <- "days"
x
# Time differences in days
# [1] 0.000000000 0.001157407 3.000000000

Answer 2

使用as.numeric，然后在两者中使用units="days"转换为difftime。如果数值输出正常，则在管道末尾省略as.difftime。

# test input
secs <- as.difftime(rep(7948800, 3), units = "secs")

secs |> as.numeric(units = "days") |> as.difftime(units = "days")
## Time differences in days
## [1] 92 92 92