R - 在表中查找某些值并按条件排序

Question

我有一个看起来像这样的 DF（但实际上有更多数据！）：

https://imgur.com/OoGxNG8.jpg

我正在尝试查看每个主题并确定在“触发器”切换到 1,2 或 3 之前的“条件”是什么。 具体来说，我正在尝试创建一个新的 DF，其信息包含三个“条件”，然后“触发器”变为 1,2 或 3。

if(df$Trigger >= 1){
  copie 3 rows before trigger (including row with trigger>=1) >= 1 of same Subject and delete rest.
}

结果应如下所示：

https://imgur.com/5gg5EYG.jpg

我已经试图解决这个问题好几个星期了，但我太缺乏经验了。我很感激任何帮助。

Answer 1

从你上面所说的 if 语句是我把它去掉的原因。基本上它是找到切换发生的位置，找到切换之前的三行并将其包含在FinalDF中：

library(tidyverse)
df <- tibble::tribble(
    ~Subject, ~Testperiod, ~Condition, ~Trigger,
           1,           1,          0,        0,
           1,           2,          0,        0,
           1,           3,          1,        0,
           1,           4,          2,        0,
           1,           5,          3,        0,
           1,           6,          3,        1,
           1,           7,          1,        1,
           1,           8,          1,        1,
           1,           9,          0,        1,
           1,          10,          0,        1,
           1,          11,          0,        1,
           1,          12,          0,        0,
           2,           1,          0,        0,
           2,           2,          2,        0,
           2,           3,          3,        0,
           2,           4,          3,        0,
           2,           5,          3,        2,
           2,           6,          2,        2,
           2,           7,          1,        1,
           2,           8,          2,        1,
           2,           9,          0,        1,
           2,          10,          0,        0,
           2,          11,          0,        0,
           2,          12,          0,        0
    )

colchanges <- which(df$Trigger != dplyr::lag(df$Trigger))
ChangesDF <- cbind(rownum = colchanges,value = df[colchanges,"Trigger"])
rows <- dplyr::filter(ChangesDF,Trigger %in% c(1:3)) %>% select(rownum) %>% 
    mutate(One = rownum - 1,
           Two = rownum - 2,
           Three = rownum - 3)
rows <- sort(as.vector(t(rows)))
rows <- rows[rows > 0]

FinalDF <- df[rows,]
FinalDF
# A tibble: 12 x 4
   Subject Testperiod Condition Trigger
     <dbl>      <dbl>     <dbl>   <dbl>
 1       1          3         1       0
 2       1          4         2       0
 3       1          5         3       0
 4       1          6         3       1
 5       2          2         2       0
 6       2          3         3       0
 7       2          4         3       0
 8       2          4         3       0
 9       2          5         3       2
10       2          5         3       2
11       2          6         2       2
12       2          7         1       1