Question

我的数据框包含类"POSIXct" "POSIXt"的以下日期时间戳：

1899-12-30 08:00:37
1899-12-30 08:03:54
1899-12-30 08:05:31
1899-12-30 08:12:55

我需要计算后续行之间的差异（以分钟为单位）。第一行的结果应该是（即08：03：54-08：00：37）：

1899-12-30 08:00:37      3.28

我使用此代码计算差异，但输出与手动计算不一致。

c_time <- df$datetime
intervals = c(difftime(ymd_hms(c_time[2:length(c_time)]),
                                ymd_hms(c_time[1:(length(c_time)-1)]),
                                units="mins"),0)

Answer 1

您可以使用lubridate和dplyr。这是其中一种选择。

df <- data.frame(dtime = c(
"1899-12-30 08:00:37",
"1899-12-30 08:03:54",
"1899-12-30 08:05:31",
"1899-12-30 08:12:55"))

library(dplyr)
library(lubridate)
df %>%
  mutate(dtime = ymd_hms(dtime), 
         diff = lead(dtime) - dtime)
#>                 dtime          diff
#> 1 1899-12-30 08:00:37 3.283333 mins
#> 2 1899-12-30 08:03:54 1.616667 mins
#> 3 1899-12-30 08:05:31 7.400000 mins
#> 4 1899-12-30 08:12:55       NA mins

两个时间戳之间的时差

1 个答案: