计算给定持续时间和距离的速度

Question

我有这些持续时间（小时：分钟）：

duration <- c(00:35, 00:47, 01:38, 02:35, 00:15, 00:45)

以及这些距离（公里）：

distance_in_km <- c(17.46, 16.48, 37.73, 48.9, 15.61, 6.79)

我如何在 R 中 (1) 以公里/小时计算速度和 (2) 以英里/小时计算速度？欢迎使用lubridate 包的解决方案。

Answer 1

使用 lubridate 包，您可以使用类似的东西。首先，您必须转换字符向量中的持续时间。

library(lubridate)
duration <- c("00:35", "00:47", "01:38", "02:35", "00:15", "00:45")
d <- hm(duration)
time_length(d,"hour")
[1] 0.5833333 0.7833333 1.6333333 2.5833333 0.2500000 0.7500000

然后你可以计算公里/小时：

distance_in_km <- c(17.46, 16.48, 37.73, 48.9, 15.61, 6.79)
time_in_hours <- time_length(d,"hour")
distance_in_km/time_in_hours

以及每小时英里数：

(distance_in_km*0.621371192)/time_in_hours