R语言如何将系统API返回的整数时间戳转换为正确日期时间

转换出错的核心原因 #

你之前转换得到公元5万多年日期的问题，本质是对时间戳的单位判断错了：
常规as_datetime默认解析的是秒级Unix时间戳——即从1970-01-01 00:00:00 UTC起累计的总秒数；而你拿到的1618269381119这类13位长度的整数，是毫秒级Unix时间戳，代表从epoch起累计的总毫秒数。直接把毫秒级数值喂给默认按秒解析的函数，相当于把时间差放大了1000倍，自然会得到离谱的远期日期结果。

具体实现方法 #

基于lubridate包的转换 #

• 方法1：将毫秒值除以1000换算为秒级数值，再按默认规则转换

  library(lubridate)
  # 示例原始时间戳
  raw_ts <- 1618269381119
  # 转换为正确的日期时间
  result <- as_datetime(raw_ts / 1000)
  

  上述代码执行后会得到2021-04-13 12:36:21 UTC，符合预期的近期日期范围。
• 方法2：直接指定解析单位为毫秒，无需手动做除法

  result <- as_datetime(raw_ts, origin = origin, unit = "ms")
  

基于基础R的转换（无需依赖lubridate） #

• 基础R的as.POSIXct函数同样需要明确时间戳的累计单位，写法如下：

  # 转换为UTC时区的日期时间
  result <- as.POSIXct(raw_ts / 1000, origin = "1970-01-01", tz = "UTC")
  # 如需换算为东八区时间，可修改tz参数
  result_cst <- as.POSIXct(raw_ts / 1000, origin = "1970-01-01", tz = "Asia/Shanghai")
  

通用判断技巧 #

快速区分时间戳类型的方法：数整数的总位数即可——10位长度为秒级时间戳，13位长度为毫秒级时间戳，16位长度为微秒级时间戳，转换时对应调整除以的倍数或者明确指定单位，就不会出现解析偏差。

内容的提问来源于stack exchange，提问作者gaut