R：将可变的"衍射时间"(以秒为单位)转换为变量"衍射时间"(以天为单位)

Question

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

> x
Time differences in secs
[1]       0       0 7948800       0
> class(x)
[1] "difftime"

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

我怎么能得到它?

Answer 1

使用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

Answer 2

按照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