在确定一定的一致值之后创建阈值

Question

我有一个驾驶实验，参与者在引导时要解决航向错误。这是我的数据框的示例：1

当前，我有代码设置方向盘转角（SWA）的阈值，对于每个ppid和trint，向下查看SWA列会找到该阈值以上的第一个值，然后选择相应的数据行以为我获取一个时间戳，以便稍后计算参与者指导的响应时间：

SWA_threshold = 0.1
threshold <-workingdata %>%
group_by(ppid,trialn) %>%
filter(abs(SWA) > SWA_threshold) %>%
filter(row_number() == 1) %>%
ungroup() %>%
transmute(ppid, heading, trialn, cameraoffset, SWAThres = SWA, 
FirstSWATimeThres = timestamp, ThresWorld_x = World_x, 
ThresWorld_z = World_z, ThresWorldYaw = WorldYaw, ThresYawRate_seconds = 
YawRate_seconds, ThresYawRateChange = YawRateChange)

但是，我已经意识到阈值的一次性值不好-我真正想要的是在SWA列中的多个连续值都超过阈值（即5）之后选择相应行的代码。一致的车轮转弯。

有人对我将如何编辑代码以实现这种新型阈值有任何想法吗？