as.POSIXct转换时间时偶现1微秒（usec）偏差的问题

这和我之前遇到的lubridate parse_date_time()偶尔差1微秒的情况症状相似，我最终需要得到可用于ggplot的POSIXct类型数据。

测试显示strptime()能正确解析带微秒的时间字符串，但通过as.POSIXct()转换时，偶尔会出现最后一位微秒损坏的情况：

> options(digits.secs=10)

> as.POSIXct(strptime("2022-08-10 11:25:00.000155", "%Y-%m-%d %H:%M:%OS", tz=""))
[1] "2022-08-10 11:25:00.000154 CEST"

> strptime("2022-08-10 11:25:00.000155", "%Y-%m-%d %H:%M:%OS", tz="")
[1] "2022-08-10 11:25:00.000155 CEST"

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