计算优步服务的空闲时间

Question

我的uber数据集包含变量拾取点，请求时间，丢弃时间，没有月份和年份的日期变量。

我需要用于计算空闲时间和创建新变量空闲时间的代码。计算如下：

如果连续行的拾取点相同，并且连续行的日期不同，则如果第一行的下降时间与第二行中的拾取时间之间没有差异，则NA值。我已经在excel中完成了它并且需要在R

中完成它

附件是excel中数据的屏幕截图

Answer 1

如果您正在寻找

，请尝试这样的事情

for(i in 2:nrow(df)){
  df$idle[1]<-NA
  if(df$Pickup.point[i]!=df$Pickup.point[i-1])
    df$idle[i]<-NA
  else
    if(df$Date[i]!=df$Date[i-1])
      df$idle[i]<-NA
    else
      df$idle[i]<-(df$Req[i]-df$Drop[i-1])
}