在 ifelse() 函数中包含 lag()

Question

我有逐秒数据，想根据变量“加速度”的某些条件创建一个新变量“类别”。具体来说，如果“加速度

我猜我应该在代码中的某处使用 lag() 来解决时间延迟问题，但它不起作用...有人可以指出我的错误并纠正我吗？

 df$category <- ifelse(df$acceleration<=-2 | 
                     (df$acceleration<-1 & lag(df$acceleration, 1)<-1 & 
                      lag(df$acceleration, 2) < -1), 1,0)

Answer 1

使用dplyr：

df %>%
  mutate(acc1 = lag(acceleration), 
         acc2 = lag(acc1),
         category = ifelse( acceleration <= -2 | 
                             (acceleration < -1 & 
                              acc1 < -1 & acc2 < -1), 
                                     1, 0)) %>%
         select(-acc1, acc2)