将数字日期重新转换为 POSIXct R

Question

我有一个日期，我将其转换为数值，然后想转换回日期。

将日期转换为数字:

date1 = as.POSIXct('2017-12-30 15:00:00')
date1_num = as.numeric(date1)
# 1514646000

将数字重新转换为日期:

as.Date(date1_num, origin = '1/1/1970')
# "4146960-12-12"

重新转换时我缺少什么？我希望最后一个命令返回我原来的 date1 .

Answer 1

由于数字向量是从具有时间分量的对象创建的，因此也可以以相同的方式重新转换，即首先转换为 POSIXct然后用 as.Date 包裹

as.Date(as.POSIXct(date1_num, origin = '1970-01-01'))
#[1] "2017-12-30"