R中POSIXct类型日期相等比较返回FALSE不符合预期问题求助

• 核心是POSIXct的毫秒精度丢失：你提供的原始date列底层存储的是带小数的时间戳1631804267.5，包含0.5秒的毫秒级信息，但R的POSIXct默认打印、写入文本文件时仅会展示到秒级，不会显示小数部分的毫秒。
• 写入txt阶段的精度丢失：调用write.table写入文本时，日期会被转为秒级的字符串2021-09-16 22:05:32，原始的0.5秒信息直接被丢弃。
• 读取转回阶段的误差：读入后用strptime按%Y-%m-%d %H:%M:%S格式转POSIXct时，只能得到整数秒的时间戳，和原始带0.5秒的时间戳数值不等，所以相等比较返回FALSE。你看到的打印结果一致只是因为两者打印时都隐藏了毫秒部分，并非实际存储值一致。

运行以下代码即可确认底层数值差异：

# 查看原始日期的底层时间戳（带小数）
as.numeric(data$date)
# 查看读取转换后日期的底层时间戳（整数）
as.numeric(prev$date)
# 查看两者的时间差
difftime(data$date, prev$date, units = "secs")

正常输出会显示两个时间戳相差0.5秒。

• 方案1：写入文本时保留毫秒信息
  写入前先把POSIXct转为带毫秒的字符串格式，避免精度丢失：

  # 写入前格式化日期保留3位毫秒
  data$date <- format(data$date, "%Y-%m-%d %H:%M:%OS3")
  write.table(data,"latest.txt",sep=",",col.names=TRUE,row.names=FALSE)
  # 读取时指定格式支持毫秒解析
  prev = read.delim("latest.txt",sep=",")
  prev$date <- as.POSIXct(prev$date, format = "%Y-%m-%d %H:%M:%OS", tz = "Etc/GMT-8")
  

• 方案2：比较时忽略毫秒差异
  如果业务场景不需要保留毫秒精度，比较时统一取整到秒级即可：

  # 向下取整到秒
  floor(as.numeric(prev$date)) == floor(as.numeric(data$date))
  # 或者用round函数取整到秒
  round(prev$date, units = "secs") == round(data$date, units = "secs")
  

• 方案3：使用R专属格式存储数据
  如果只是R内部复用数据，直接用saveRDS/readRDS存储rds格式文件，会完整保留POSIXct的所有属性和精度，不会出现精度丢失问题：

  # 写入rds文件
  saveRDS(data, "latest.rds")
  # 读取rds文件
  prev <- readRDS("latest.rds")
  

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