为何R中difftime函数输出因输入是否用as.character包裹而不同？

先看测试数据与运行代码：

library(tidyverse)

test <- structure(list(date1 = structure(c(1632745800, 1632745800), 
                                         tzone = "UTC", class = c("POSIXct", "POSIXt")), 
                       date2 = structure(c(1641468180, 1641468180), tzone = "UTC", class = c("POSIXct", "POSIXt"))), 
                  row.names = c(NA, -2L), class = c("tbl_df", "tbl", "data.frame"))

test %>% mutate(date_diff = difftime(date2, date1, units = "days"), 
date_diff2 = difftime(as.character(date2), as.character(date1), units = "days")) %>% 
  print.data.frame()
#>                 date1               date2     date_diff    date_diff2
#> 1 2021-09-27 12:30:00 2022-01-06 11:23:00 100.9535 days 100.9951 days
#> 2 2021-09-27 12:30:00 2022-01-06 11:23:00 100.9535 days 100.9951 days

差异产生的原因 #

• 直接传入POSIXct对象的计算逻辑：POSIXct类型本质是存储UTC时区的秒级时间戳，difftime(date2, date1)直接计算两个时间戳的差值，再转换为天数，这个过程完全基于精确的数值计算，没有时区转换误差。
• 传入字符串的计算逻辑：当把POSIXct转为字符串后传入difftime，函数会调用strptime解析字符串。strptime默认会忽略字符串中的时区标记（即使是明确的UTC），而是将字符串解析为当前系统的本地时区时间，这会导致解析后的时间戳与原始UTC时间戳产生偏差，最终计算出的天数差值出现错误。

哪一种结果正确 #

直接使用POSIXct对象计算得到的date_diff（100.9535 days）是正确的，它保留了原始UTC时间的精确性，没有因时区解析错误引入偏差。

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