如何根据速度变量计算加速度

Question

我有以下数据，我需要计算加速度（每单位时间速度的变化）。请注意，我中间缺少一些时间戳，所以我该如何计算 加速。我尝试了以下代码，但需要知道这种方法是否正确。

我所做的是计算速度差以及时间差...，最后删除了超过1秒的timediff，这使我每秒自动加速。

样本数据：

vehicle ID                                Timestamp                Speed
1 ID12                             2018-04-03 03:03:13          30.85253
2 ID12                             2018-04-03 03:03:14          33.37131
3 ID12                             2018-04-03 03:03:24          35.31485
4 ID12                             2018-04-03 03:03:25          36.86404
5 ID12                             2018-04-03 03:03:26          37.73222
6 ID12                             2018-04-03 03:03:30          37.08222
.                                       .           .
.                                       .           .

tempdata<-Df%>%

  group_by(vehcile ID) %>%

  mutate(Speed_Diff = Speed - lead(Speed,1))



tempdata<-as.data.frame(tempdata)


tempdata <- na.omit(tempdata)

j<-tempdata$Timestamp

timediff<-difftime(j[1:(length(j)-1)],j[2:length(j)])


timediff<-as.data.frame(timediff)

timediff[nrow(timediff)+1,] <- NA 

########make rows of this dataframe & Output dataframe consistent by adding a 

NA row###


tempdata2<-cbind(tempdata,timediff)

tempdata2 <- na.omittempdata2

tempdata2$timediff<-as.numeric(abstempdata2$timediff))


Finaldataframe<- tempdata2tempdata2$timediff==1,]