循环差分的R程序设计_R_For Loop

循环差分的R程序设计

r for-loop

循环差分的R程序设计,r,for-loop,R,For Loop,我有两列要循环，它应该计算（I）的到达-离开（I+1），并且该值应该存储在一个新列中 departure arrival 2012-01-26 08:15:00 2012-01-26 08:50:00 2012-01-26 11:30:00 2012-01-27 16:00:00 2012-01-27 18:00:00 2012-01-27 23:05:00

我有两列要循环，它应该计算（I）的到达-离开（I+1），并且该值应该存储在一个新列中

departure                            arrival
2012-01-26 08:15:00                 2012-01-26 08:50:00
2012-01-26 11:30:00              2012-01-27 16:00:00
2012-01-27 18:00:00               2012-01-27 23:05:00
2012-02-11 00:20:00                 2012-02-11 09:10:00

expected output
waiting time
(2012-01-26 08:50:00)-(2012-01-26 11:30:00) =  2 hr 40 min
 (2012-01-27 16:00:00)-( 2012-01-27 18:00:00) =  2 hrs
 (2012-01-27 23:05:00)- (2012-02-11 00:20:00)=14 days 13 hrs, 349 hrs

请帮助填写上述数据的完整代码。在R中，我尝试过，但有一些错误

for (i :length(data frame){
i <- i[17] #index of arrival column
j <- i+1[18] #index of departure column
diff = i-j
return diff
}
diff = waiting time

for（i：长度（数据帧）{
i这使用包lubridate
：
d$departure <- lubridate::ymd_hms(d$departure)
d$arrival   <- lubridate::ymd_hms(d$arrival)

d$difference <- d$departure - d$arrival
d

谢谢，我需要到达ist值和离开秒值之间的差值，即（2012-01-26 08:50:00）-（2012-01-26 11:30:00），其差值为2小时40分钟
            departure             arrival difference
1 2012-01-26 08:15:00 2012-01-26 08:50:00   -35 mins
2 2012-01-26 11:30:00 2012-01-27 16:00:00 -1710 mins
3 2012-01-27 18:00:00 2012-01-27 23:05:00  -305 mins
4 2012-02-11 00:20:00 2012-02-11 09:10:00  -530 mins