r - 计算自一周开始以来的时间？

Question

我有一堆日期时间数据，我想看看其中是否有任何每周模式。所以我想用 R 计算自一周开始以来耗时( 以秒为单位 )。

我怎样才能做到这一点？我使用 difftime(time,as.Date(time)) 对每日模式做了同样的事情但我不能在一周内使用相同的技巧，因为没有 as.Week() .

Answer 1

你可以在基础 R 中做到这一点，你已经给了自己答案:difftime()具有适当的偏移量。

即使是午夜也足够好，因为您只需要将 dayOfTheWeek * 24 * 60 * 60 添加到 is，而 dayOfTheWeek 是 POSIXlt 中的一个字段。 .

如果你想要更高端的帮助包，我的 RcppBDT 也有一些来自 Boost Date_Time 的函数。

插图:

R> now <- Sys.time()
R> midnight <- trunc(now, "days")   # elegant way to get midnight; thanks @flodel
R> today <- as.POSIXlt(Sys.Date())
R> today$wday   # it is Sunday
[1] 0
R> 
R> difftime(now, midnight, unit="secs")
Time difference of 56630.6 secs
R> 

所以你可以添加 today$wday * 24 * 60 * 60

R> as.numeric(difftime(now, midnight, unit="secs")) + today$wday*24*60*60
[1] 56630.6
R>