r中的响应变化分析

我正在尝试探索特定问题的响应变化模式。这是数据集的示例。

id <- c(1,1,1, 2,2,2, 3,3,3,3, 4,4)
item.id <- c(1,1,1, 1,1,1 ,1,1,2,2, 1,1)
sequence <- c(1,2,3, 1,2,3, 1,2,1,2, 1,2)
score <- c(0,0,0, 0,0,1, 0,1,0,0, 1,0)
data <- data.frame("id"=id, "item.id"=item.id, "sequence"=sequence, "score"=score)
data
   id item.id sequence score
1   1       1        1     0
2   1       1        2     0
3   1       1        3     0
4   2       1        1     0
5   2       1        2     0
6   2       1        3     1
7   3       1        1     0
8   3       1        2     1
9   3       2        1     0
10  3       2        2     0
11  4       1        1     1
12  4       1        2     0

id代表人，item.id是为了提问。sequence是为了尝试改变响应，并且score是该项目的得分。

我试图观察的是对那些score被更改为0 to 1 and 1 to 0。 期望的输出是：

data.0.to.1
   id item.id sequence score
   2       1        1     0
   2       1        2     0
   2       1        3     1
   3       1        1     0
   3       1        2     1


data.1.to.0
    id item.id sequence score
    4       1        1     1
    4       1        2     0

有什么想法吗？谢谢！

这是一种选择diff按“id”、“item.id”分组的“score”的存在

library(dplyr)
data %>% 
    group_by(id, item.id) %>%
    filter(any(score != 0)) %>%
    mutate(ind = c(0, diff(score))) %>% 
    group_by(ind =  ind[ind!=0][1]) %>% 
    group_split(ind, keep = FALSE)
#[[1]]
# A tibble: 2 x 4
#     id item.id sequence score
#  <dbl>   <dbl>    <dbl> <dbl>
#1     4       1        1     1
#2     4       1        2     0

#[[2]]
# A tibble: 5 x 4
#     id item.id sequence score
#  <dbl>   <dbl>    <dbl> <dbl>
#1     2       1        1     0
#2     2       1        2     0
#3     2       1        3     1
#4     3       1        1     0
#5     3       1        2     1