lubridate包中的Date对象本质上是POSIXct对象。as.numeric()函数可以将POSIXct对象转换为从1970年1月1日起的秒数,并返回一个数字类型的结果。可以以下面的代码示例来说明:
library(lubridate)
# 创建一个lubridate日期对象
date <- ymd_hms("2021-10-01 12:00:00")
# 将日期转换为秒数
seconds <- as.numeric(date)
# 显示转换后的结果
print(seconds)
输出结果如下:
[1] 1633084800
上述代码将“2021-10-01 12:00:00”转换为从1970年1月1日起的秒数,并将结果存储在seconds变量中。