R - 如何在数据帧中返回所有特定行以下的所有行？

Question

所以这个数据框有这些值

page_name         activity
Home              View Page
New Project       View Page
New Project       Submit Form
New Project       View Page
Expenses          View Page
Quotes            View Page
New Project       View Page
New Project       Submit Form
New Project       View Page
Payment Claims    View Page

我正在尝试获取页面名称为“新建项目”的行下面两行的所有页面，并且活动是在这样的新数据框中的“提交表单”。

page_name         activity
Expenses          View Page
Payment Claims    View Page

我用这个R代码来获取所有遵循我需要的条件的行。

after_newproj <- with(dat, dat[((page_name == 'New Project' & activity == 'Submit Form')),] )

现在我尝试使用它来获得我想要发生的事情，它返回相同数量的行，但都是null。

after_newproj <- with(dat, dat[((page_name == 'New Project' & activity == 'Submit Form')),] + c(2) )

Answer 1

我的解决方案是您创建其他字段，然后可以对其进行过滤
代码更新....它现在有效。

功能，以帮助过滤

 global.counter <- 2 fill.filler <- function(x){ if(x == "Break") global.counter <<- 0 else global.counter <<- global.counter + 1 return(global.counter) } 

用于过滤掉所需行的代码

 df %>% mutate(fill = if_else(page_name == "New Project" & activity == "Submit Form", "Break", "Count")) %>% mutate(counter = sapply(.$fill, fill.filler)) %>% filter(counter <= 2, activity != "Submit Form") %>% select(-c(fill, counter)) 

重要的是global.counter设置为2，否则前几行也将包含在您想要避免的最终选择中。

希望代码很容易理解。

Answer 2

数据

library(data.table)
df <- fread("page_name,activity
Home,View Page
New Project,View Page
New Project,Submit Form
New Project,View Page
Expenses,View Page
Quotes,View Page
New Project,View Page
New Project,Submit Form
New Project,View Page
Payment Claims,View Page", sep=",", header=T)

dplyr解决方案

dplyr lead-lag函数在这些情况下dplyr用

library(dplyr)
df[lag(df$page_name,2)=="New Project" & lag(df$activity,2)=="Submit Form",]

产量

         page_name  activity
1:        Expenses View Page
2:  Payment Claims View Page