使用另一列中的特定顺序值集创建新变量

Question

我正在尝试创建一个新变量，其中的值被分配为另一列中特定顺序值集的函数。 下面是一个报告 10 次测试的状态（阳性或阴性）的示例：

    df<-data.frame(Trank=c(1:10), status=c(0,1,0,0,1,1,0,1,0,1))

现在，新列“class”中的值应该按照一些规则分配，例如：如果当前测试为阴性但前两次测试为阳性，则为 class="a"，如果当前测试为阳性，则为 class=="b"当前测试为阳性但前一次为阴性，否则为 class=="c"。在这个例子中，我会得到类似的东西：

Trank status class
  1      0     c
  2      1     b
  3      0     c
  4      0     c
  5      1     b
  6      1     c
  7      0     a
  8      1     b
  9      0     c
 10      1     b

而且我不知道获得这个输出的条件函数应该是怎样的。 我很抱歉没有发布任何尝试，但我真的坚持这一点。任何建议/建议将不胜感激！非常感谢！

Answer 1

我们可以使用dplyr::lag 和dplyr::case_when 来编码不同的条件

library(tidyverse)
df %>%
    mutate(class = case_when(
        status == 0 & lag(status) == 1 & lag(status, n = 2L) == 1 ~ "a",
        status == 1 & lag(status) == 0 ~ "b",
        TRUE ~ "c"))
#   Trank status class
#1      1      0     c
#2      2      1     b
#3      3      0     c
#4      4      0     c
#5      5      1     b
#6      6      1     c
#7      7      0     a
#8      8      1     b
#9      9      0     c
#10    10      1     b