Question

我有很多记录作为字符串加载，我需要将它们转换为日期，然后计算时间差。以下转换仅给我一个简短的日期。我需要包含时间戳，以及如何计算输出总计秒数的差异。

以下示例是2分钟的差异所以我希望看到输出为120。

as.Date("Apr 17 2013  4:30:00:000PM", "%b %d %Y %H:%M:%S")
as.Date("Apr 17 2013  4:32:00:000PM", "%b %d %Y %H:%M:%S")

Answer 1

错误的类型 - 使用例如strptime()内的difftime()：

R> difftime(strptime("Apr 17 2013 4:30:00:000PM", "%b %d %Y %H:%M:%S"), 
+           strptime("Apr 17 2013 4:32:00:000PM", "%b %d %Y %H:%M:%S"))
Time difference of -2 mins
R> difftime(strptime("Apr 17 2013 4:30:00:000PM", "%b %d %Y %H:%M:%S"), 
+           strptime("Apr 17 2013 4:32:00:000PM", "%b %d %Y %H:%M:%S"), 
+           unit="secs")
Time difference of -120 secs
R>

重新排序可为您带来积极的差异。 as.numeric()为您提供数字。在这里搜索任何一个命令的帮助将为您提供其他示例。

R字符到日期的时间戳以秒为单位计算

1 个答案: