使用 R 将时间格式转换为数字

Question

在大多数情况下，我们使用 R 将数字时间转换为 POSIXct 格式。但是，如果我们想比较两个时间点，那么我们更喜欢数字时间格式。例如，我有一个像“2001-03-13 10:31:00”这样的日期格式，

  begin <- "2001-03-13 10:31:00"

使用R，我想将其转换为数字（例如，儒略时间），也许类似于1970年- 01-01 00:00:00 和 2001-03-13 10:31:00。

您有什么建议吗？

---

儒略历始于公元前 45 年（公元 709 年），是尤利乌斯·凯撒对罗马历法的改革。它是在与亚历山大天文学家索西基因协商后选择的，可能是为了近似回归年（至少自喜帕恰斯以来已知）而设计的。请参阅http://en.wikipedia.org/wiki/Julian_calendar

Answer 1

如果您只想从字符向量中删除 ":" 、 " " 和 "-" 那么这就足够了：

end <- gsub("[: -]", "" , begin, perl=TRUE)
#> end
#[1] "20010313103100"

您应该阅读 ?regex 中大约 1/4 的部分字符类。由于“-”在该上下文中作为范围运算符很特殊，因此需要将其放在前面或最后。

编辑后，答案显然就是 @joran 写的，除了您需要首先转换为 DateTime 类：

 as.numeric(as.POSIXct(begin))
#[1] 984497460

另一点是比较运算符确实适用于 Date 和 DateTime 类变量，因此可能根本不需要转换。这将“开始”与一秒后的时间进行比较，并正确报告开始时间更早：

as.POSIXct(begin) < as.POSIXct(begin) +1
 #[1] TRUE

Answer 2

根据修改后的问题，这应该满足您的要求：

begin <- "2001-03-13 10:31:00"
as.numeric(as.POSIXct(begin))

结果是一个 unix 时间戳，即自纪元以来的秒数，假设时间戳位于本地时区。

Answer 3

也许这也可以工作：

library(lubridate)
...
df <- '24:00:00'

as.numeric(hms(df))

hms() 会将您的数据从一种时间格式转换为另一种时间格式，这将让您将其转换为秒。请参阅完整的文档。

我尝试这样做是因为我在处理超过 24 小时的格式的数据时遇到了问题。

Answer 4

?as.POSIX 帮助中的示例给出了

as.POSIXct(strptime(begin, "%Y-%m-%d %H:%M:%S"))

这样的结果：

as.numeric(as.POSIXct(strptime(begin, "%Y-%m-%d %H:%M:%S")))