R语言中difftime跨日期计算结果异常问题求助

你的问题根源出在ifelse函数对difftime类型的处理上，同时要确保shift函数是data.table包提供的版本（避免和其他包的同名函数冲突）。

为什么会得到离谱的结果？ #

ifelse会强制统一输出结果的类型：当你传入difftime类型的时间差和逻辑型的NA时，它会把difftime对象转换为底层的数值（单位是秒），但不会保留difftime的单位属性。最终这些秒数被直接当成小时数显示，才出现了8757这种不符合预期的数值。

另外，如果你加载了多个包（比如dplyr），shift函数可能被其他包的同名函数覆盖，导致行为异常，建议明确指定data.table::shift。

修复后的代码 #

直接用data.table的条件赋值逻辑，避免使用ifelse，这样可以保留difftime的类型和单位：

# 明确使用data.table的shift函数，避免包冲突
getDiff <- function(x) {
  difftime(data.table::shift(x, fill = NA, type = "lead"), x, units = "hours")
}

# 用data.table的条件赋值替代ifelse
diff_result <- dataframe[, time.diff := getDiff(DateTime)][Status != "Active", time.diff := NA]

或者更简洁的写法，不需要额外定义函数：

diff_result <- dataframe[, 
  time.diff := difftime(data.table::shift(DateTime, type = "lead"), DateTime, units = "hours")
][Status != "Active", time.diff := NA]

验证结果 #

运行上述代码后，第一行的time.diff会正确显示为约9.97小时（即9小时58分7秒），符合你的预期。

额外提示 #

• 始终确保在使用data.table的特殊语法时，没有其他包的同名函数干扰（比如shift、select等），可以用package::function的方式明确指定。
• 处理时间类型数据时，尽量避免用ifelse，优先使用data.table/dplyr的条件赋值逻辑，保留数据类型的完整性。

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