如何基于上一行过滤行并使用dplyr保留上一行？

Question

我试图使用基于上一行的条件对数据集的行进行子集化，同时将上一行保留在子集数据中。 这是基本相同，这里的问题，但我要寻找一个dplyr的方法：

根据上一行的值选择特定的行（在同一列中）

我已经在评论中对该答案采用了dplyr方法，但是我无法弄清楚保留上一行的最后一步。

我可以得到支持我感兴趣的条件的行（在没有enter上一行的情况下不incorrect ）。

set.seed(123)
x=c("enter","incorrect","enter","correct","incorrect",
"enter","correct","enter","incorrect")
y=c(runif(9, 5.0, 7.5))
z=data.frame(x,y)

filter(z, x=="incorrect" & lag(x)!="enter")

其中给出，符合市场预期：

      x        y
1 incorrect 7.351168 

我想产生的是这样，因此我根据条件过滤的所有行都与原始数据集中位于它们前面的行一起存储：

        x        y
1   correct 7.207544
2 incorrect 7.351168

任何帮助将不胜感激！

Answer 1

通过过滤，您可以执行以下操作：

z %>%
  filter( (x == "incorrect" & lag(x) != "enter") | lead(x == "incorrect" & lag(x) != "enter") )

给予：

          x        y
1   correct 7.207544
2 incorrect 7.351168