我有一个数据集,其中包含足球赛事的时间安排。一场比赛超过 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 要求的问题。如果有但我错过了,请随意批评,但请给我链接重复的问题。
提前致谢!
查看 lubridate 是否有这种情况。
可能有一种更简单的方法可以做到这一点,但这有效:
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))
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)