Identifying a specific pattern in several adjacent rows of a single column - R [closed]

问题

I'm back with my survey data.

This time, I need to remove a specific set of rows from data when they occur. In our survey, an automated telephone survey, the survey tool will attempt three times during that call to prompt the respondent to enter a response. After three timeouts of the question the survey tool hangs up. This mostly happens when the call goes to someone's voicemail.

I would like to identify that pattern when it happens so I can remove it from calculating call time.

The pattern I am looking for looks like this in the Interactions column:

It doesn't HAVE to be Intro. It can be any part of the survey where it prompting the respondent for a response THREE times but no response is provided so the call fails. But, it does have to be sandwiched in between "Answer" (the phone picks up) and "Timeout. Call failed." (a failure).

I did try to apply what I learned from yesterday's solution (about run length encoding) to my other indexing question but I couldn't make it work in the slightest. So, here I am.

Here's an example dataset:

This is 15 respondents and every interaction between the survey tool and the respondent (or their phone, essentially).

Here's the code for the dataframe: This goes to a Google Drive text editor with the code

回答1:

If I understand the question correctly, the function below removes all rows between a row with "Answer" and a failure value (there are 3 such values in the question).
The name of the column to look for defaults to "Interactions", and the first answer and failure values also have defaults assigned.
Note that all match instructions are case sensitive.

removeRows <- function(X, col = "Interaction", 
                       ans = "Answer", 
                       fail = c("Timeout. Call failed.", "Partial", "Enqueueing call"))
{  
  a <- grep(ans, X[[col]])
  f <- which(X[[col]] %in% fail)
  a <- a[findInterval(f, a)]

  for(i in seq_along(a)){
    X[[col]][a[i]:f[i]] <- NA_character_
  }
  Y <- X[complete.cases(X), , drop = FALSE]
  Y
}

removeRows(survey_data)

来源：https://stackoverflow.com/questions/59417994/identifying-a-specific-pattern-in-several-adjacent-rows-of-a-single-column-r

标签

indexing

pattern-matching

one-to-many