减去时间超过60分钟

Question

我有一个数据集，其中包含足球比赛的时间安排。 一场比赛超过60分钟，我正在尝试计算时间间隔。 这是我的数据：

data <- c("11:14", "17:27", "25:34", "39:17", "39:59", "42:32", "50:15", "50:53", "64:22", "67:39")

我的问题是由于分钟超过60分钟（它们可能在0到90分钟之间）这一事实而引起。 所以从本质上讲，我想要可以打印出事件之间间隔的代码：

"6:13", "8:07", "13:43",..., "3:17"

将数据转换成几个小时然后从那里去会更好吗？ 我只是想让它变得简单而已。 我看过其他问题，但是找不到任何问到R的问题。如果有，但我错过了，请随时提出批评，但请给我重复。

提前致谢！

Answer 1

寻找润滑这种东西。

可能有一种更简单的方法，但这可以起作用：

library(lubridate)
data <- c("11:14", "17:27", "25:34", "39:17", "39:59", "42:32", "50:15", "50:53", "64:22", "67:39")
out <- seconds_to_period(diff(as.numeric(ms(data)))

如果要将输出作为格式化的字符串而不是句点，请使用sprintf：

sprintf('%02d:%02d', minute(out), second(out))

Answer 2

这也可能工作

data1 <- c("11:14", "17:27", "25:34", "39:17", "39:59", "42:32", "50:15", "50:53", "64:22", "67:39")
data2 = sapply(strsplit(data1,":"), # from http://stackoverflow.com/a/5187350/7128934
               function(x) {
                   x <- as.numeric(x)
                   x[1]+x[2]/60
               }
)

difference = list()
for (i in 1: (length(data1) - 1))  {
difference[i] = data2[i+1] - data2[i]
}

Answer 3

另一个基本R尝试使用as.difftime明确指定单位：

out <- diff(sapply(strsplit(data, ":"), function(x) 
  Reduce(`+`, Map(as.difftime, as.numeric(x),  units=c("mins","secs"))))
)

# time difference in seconds
out
#[1] 373 487 823  42 153 463  38 809 197

# formatted string
sprintf("%d:%02d", out %/% 60, out %% 60)
#[1] "6:13"  "8:07"  "13:43" "0:42"  "2:33"  "7:43"  "0:38"  "13:29" "3:17"