r - R 从字符到日期的时间戳以秒计算

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()给你数字。在此处搜索任一命令的帮助将为您提供大量其他示例。