R中计算两个POSIXct变量差值得到hr:min:sec格式时长报错如何解决？

两个POSIXct类型的时间变量做减法得到的是difftime类的时间差对象，代表的是时长而非具体的时间点，而as.POSIXct()只能用来转换时间点类的数据，因此无法识别转换规则就会报错。此外你原有代码里的计算顺序写反了，用开始时间减结束时间会得到负数时长。

方案1：纯基础R实现（无需安装额外依赖包） #

直接通过总秒数计算拆分时分秒，再格式化输出，兼容性最好：

# 先计算时间差总秒数（结束时间减开始时间）
diff_seconds <- as.numeric(Total_Trips$ended_at - Total_Trips$started_at, units = "secs")
# 格式化为hr:min:sec格式的字符串
Total_Trips$Trip_Duration <- sprintf("%02d:%02d:%02d", 
                                     diff_seconds %/% 3600, 
                                     (diff_seconds %% 3600) %/% 60, 
                                     diff_seconds %% 60)

方案2：使用lubridate包实现（代码更简洁） #

如果已经安装了常用的时间处理包lubridate，可以用内置方法直接转换：

# 加载包
library(lubridate)
# 直接转换difftime对象为HH:MM:SS格式
Total_Trips$Trip_Duration <- as_hms(Total_Trips$ended_at - Total_Trips$started_at)

• 如果后续需要对行程时长做数值统计（比如求平均时长、筛选时长超过1小时的订单），建议额外保留一列数值类型的时长数据（比如总秒数/总分钟数），字符串格式的hr:min:sec无法直接参与数值运算
• 两种方法都支持超过24小时的长时长格式化，不会出现自动转天数的问题

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