R使用readr读写CSV时时间戳小数秒精度丢失该如何解决？

问题根因 #

• 小数秒「看起来丢失」本质是R的POSIXct类型默认控制台打印精度仅到秒，并不是数据真的被截断，可通过format(你的时间列, "%Y-%m-%d %H:%M:%OS3")验证小数秒仍存在。如果需要控制台默认打印显示小数秒，可以运行options(digits.secs = 3)设置全局打印精度，数字可根据你需要的小数位数调整。
• UTC标识来源：你使用的时间格式属于ISO8601标准，当字符串中没有指定时区时，read_csv默认将其识别为UTC（世界标准时间）时区，写入文件时后缀的Z就是UTC时区的ISO8601标识。
• write_csv默认输出POSIXct类型时仅保留到秒级，是导致写入后小数秒真丢失的直接原因。

解决方法 #

方案1：保留时间类型，读写均保留小数秒 #

读取时指定解析格式

手动指定时间列的解析规则，明确读取小数秒：

library(readr)
df <- read_csv("你的数据文件.csv",
  col_types = cols(
    # 替换为你的实际时间列名，%OS表示读取带小数的秒
    时间列 = col_datetime(format = "%Y-%m-%dT%H:%M:%OS")
    # 如果需要指定非UTC时区，添加tz参数即可，示例为东八区
    # 时间列 = col_datetime(format = "%Y-%m-%dT%H:%M:%OS", tz = "Asia/Shanghai")
  )
)

写入时指定输出格式

写入前先将时间列格式化为带小数秒的字符串，避免默认截断：

# 保留3位小数秒，格式与原始输入对齐
df$时间列 <- format(df$时间列, "%Y-%m-%dT%H:%M:%OS3")
write_csv(df, "输出文件.csv")

方案2：无需时间运算的场景，直接以字符型读写 #

这是最稳妥的零误差方案，完全避免解析带来的格式改动：

# 读取时指定时间列为字符型
df <- read_csv("你的数据文件.csv",
  col_types = cols(时间列 = col_character())
)

# 写入时不会做任何格式转换，完全保留原始内容
write_csv(df, "输出文件.csv")

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