lubridate 中的一个简单问题——我想将 hms 对象转换为自一天开始以来的适当秒数。
例如
library(lubridate)
hms("12:34:45")
那么我想知道 12 小时 34 分 45 秒到底有多长,以秒为单位
一些明显的东西
seconds(hms("12:34:45"))
刚回来
45s
这不是我想要的。如何将这些 hms 值转换为秒?我想使用lubridate
最佳答案
您使用哪个包无关紧要 - 它会将日期/日期时间对象转换为自纪元以来秒的 POSIXct 表示。所以你也可以在基础 R 中做——所以在这里部署 ISOdatetime()
任意一天,使用今天:
R> difftime(ISOdatetime(2012,7,2,12,34,45), ISOdatetime(2012,7,2,0,0,0))
Time difference of 12.5792 hours
所以我们想要秒:
R> difftime(ISOdatetime(2012,7,2,12,34,45), ISOdatetime(2012,7,2,0,0,0),
+ unit="secs")
Time difference of 45285 secs
我们可以转换为数字:
R> as.numeric(difftime(ISOdatetime(2012,7,2,12,34,45), +
ISOdatetime(2012,7,2,0,0,0), unit="secs"))
[1] 45285
编辑:回到 lubridate,这可以说是一个错误:
> hms("12:34:45") - hms("00:00:00")
[1] 12 hours, 34 minutes and 45 seconds
R> as.numeric(hms("12:34:45") - hms("00:00:00"))
[1] 45
R>
关于r - 在 R 中,使用 lubridate 将 hms 对象转换为秒,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/11298327/