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

时间:2016-02-09 08:51:13

标签: r date time lubridate

我有这些持续时间(小时:分钟):

if (session_status() == PHP_SESSION_NONE) {
    session_start(); //this is line 10
}

和这些距离(km):

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

如何在R中我能(1)以km /小时计算速度,(2)以英里/小时计算速度?使用distance_in_km <- c(17.46, 16.48, 37.73, 48.9, 15.61, 6.79) 包的解决方案将受到欢迎。

1 个答案:

答案 0 :(得分:2)

使用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

然后你可以计算km / h:

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