如何使用lubridate计算R中的时差

Question

我有两列包含时间值，我想插入第三列来计算其他两列中时间之间的时差。我的结果不断出错。请帮忙！以下是样本数据集

TOC         ORD
00:11:02    00:12:48
00:11:36    00:18:39
00:16:48    00:19:33
00:18:31    00:26:31
00:25:17    00:28:43
00:29:24    00:34:49
00:31:25    00:36:35
00:35:54    00:55:09
00:39:35    00:41:43
00:47:07    01:17:44
01:05:11    01:10:34
01:07:27    01:23:45
01:38:38    01:40:27

数据 画面

数据

library(lubridate)
CR_Date1 <- with(CR_Date, difftime(as.numeric(EXP_DAFB2012$TOC, 
EXP_DAFB2012$ORD)))
CR_Date1

R的输出

Error in as.POSIXct.numeric(time1) : 'origin' must be supplied

In as.POSIXct(time1) : NAs introduced by coercion
In addition: Warning message:
  as.difftime.EXP_DAFB2012.TOC..EXP_DAFB2012.ORD..4
1                                               NA secs
2                                               NA secs
3                                               NA secs
4                                               NA secs
5                                               NA secs
6                                               NA secs
7                                               NA secs
8                                               NA secs

Answer 1

您需要提供difftime它可以识别的类的向量。因此，类似：

difftime(as.POSIXct(df$ORD, format = "%H:%M:%S"), as.POSIXct(df$TOC, format = "%H:%M:%S"))

结果：

Time differences in mins
 [1]  1.766667  7.050000  2.750000  8.000000  3.433333  5.416667  5.166667 19.250000  2.133333 30.616667  5.383333 16.300000  1.816667

此代码假定df$TOC并且df$ORD是字符串，而不是因素。如果它们是因素，则可以将as.POSIXct零件嵌套在中as.character。您可以使用unitsin difftime更改输出单位。例如：

> difftime(as.POSIXct(df$ORD, format = "%H:%M:%S"), as.POSIXct(df$TOC, format = "%H:%M:%S"),
    unit = "hours")
Time differences in hours
 [1] 0.02944444 0.11750000 0.04583333 0.13333333 0.05722222 0.09027778 0.08611111 0.32083333 0.03555556 0.51027778 0.08972222 0.27166667 0.03027778