R中POSIXct日期比较最佳实践？转换后日期不等问题排查

这是个非常常见的POSIXct时区陷阱，我来给你一步步拆解清楚：

问题根源：POSIXct的==比较规则 #

POSIXct类型的变量在R里的相等判断是严格的：只有当两个变量的底层Unix时间戳（从1970-01-01 UTC开始的秒数）完全相同，并且它们的时区属性也完全一致时，==才会返回TRUE。

哪怕两个变量代表的是同一个绝对时刻，只要一个是EST时区、一个是GMT时区，==就会返回FALSE——这就是你看到的结果。你提到的“GMT变量似乎小于EST变量”其实只是显示上的差异（因为时区不同，同一时刻的字符串表示不同），但它们的底层数值应该是一致的。

你的代码到底做了什么？ #

你这段代码：

eventTime1Converted <- as.POSIXct(format(eventTime1, tz = "GMT", usetz = TRUE), tz = "GMT")

其实是把原EST时区的eventTime1，先格式化为GMT时区的字符串（比如原EST时间2024-05-20 10:00:00 EST会被转成2024-05-20 14:00:00 GMT），再把这个字符串解析成GMT时区的POSIXct变量。这时候新变量的时区属性是GMT，和原变量的EST不一致，所以==判断失败。

正确的相等校验方式 #

这里有几种可靠的方法来判断两个POSIXct是否代表同一时刻：

• 比较底层数值：直接提取它们的Unix时间戳进行比较，这是最直接的方式：

  as.numeric(eventTime1Converted) == as.numeric(eventTime1)
  

  因为不管时区是什么，同一绝对时刻的时间戳数值是完全相同的。

• 统一时区后再比较：把其中一个变量的时区转换为和另一个一致，再用==判断：

  # 把转换后的变量转成EST时区
  eventTime1Converted_est <- as.POSIXct(eventTime1Converted, tz = "EST")
  eventTime1Converted_est == eventTime1
  

  这时候两个变量的时区和数值都一致，==会返回TRUE。

• 用时间差判断：使用difftime函数计算两个时间的差值，判断是否为0：

  difftime(eventTime1Converted, eventTime1, units = "secs") == 0
  

  difftime会自动处理时区差异，计算的是两个时间的绝对差值，只要差值为0就代表是同一时刻。

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