如何在R语言中计算日期时间差？遇格式错误求解决

1. 先盯紧变量名的一致性 #

你前面转换时间用的是df数据框，但计算时间差时用的是scrap_3——两个数据框名不匹配，这是最可能触发报错的原因。把代码里的框名统一，要么全用df，要么全用scrap_3。

2. 确认时间转换真的完成了 #

用ymd_hms转换后，未必所有行都能成功转成POSIXt类型。可以用str(df$started_at)和str(df$ended_at)检查类型，正常应该显示POSIXct/POSIXt。

如果有转换失败的行，会变成NA，你可以用下面的代码揪出这些有问题的原始数据：

# 找出转换失败的行
bad_start_rows <- which(is.na(df$started_at))
bad_end_rows <- which(is.na(df$ended_at))

# 查看原始错误格式的字符串
df[bad_start_rows, "started_at"]
df[bad_end_rows, "ended_at"]

这些行的原始字符肯定不符合yyyy-mm-dd hh:mm:ss的标准格式，先修正这些数据（比如补全缺失的时间部分、修正日期格式）再重新转换。

3. 正确计算时间差的代码 #

确保框名一致、转换成功后，用下面的代码计算分钟级时间差：

# 重新执行转换（确保类型正确）
df$started_at <- ymd_hms(df$started_at)
df$ended_at <- ymd_hms(df$ended_at)

# 计算时间差并生成新列
df$duration_mins <- difftime(df$ended_at, df$started_at, units = "mins")

# 查看结果
head(df$duration_mins)

4. 更简单的备选方法 #

POSIXt类型支持直接做减法，结果默认是秒数，转成分钟只要除以60就行：

df$duration_mins <- as.numeric(df$ended_at - df$started_at) / 60

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