R：删除序列中缺失值之后的行

发布于10月05日

我有不同的人执行测试，并被赋予一个测试编号，以形成一个范围从0到3的序列.例如:

ID            Nb_Test
A1            0
A1            1
A1            2
A2            1
A2            2
A2            3
A3            0
A3            1
A3            3

如何删除没有测试#0的每个个体的测试以及序列中中断后的测试.例如，我希望它看起来像这样:

ID            Nb_Test
A1            0
A1            1
A1            2
A3            0
A3            1

推荐答案

几种可能性，都依赖于相同的两个逻辑判断:对于0,any在组中的位置，以及在序列中diff的位置是1.

底座R

dat[as.logical(ave(dat$Nb_Test, dat$ID, FUN=\(x) any(x==0) & c(TRUE, diff(x) == 1))),]
#  ID Nb_Test
#1 A1       0
#2 A1       1
#3 A1       2
#7 A3       0
#8 A3       1

data.table个

library(data.table)
setDT(dat)
dat[, if(any(Nb_Test==0)) .SD[c(TRUE, diff(Nb_Test) == 1)], by=ID]
#   ID Nb_Test
#1: A1       0
#2: A1       1
#3: A1       2
#4: A3       0
#5: A3       1

dplyr个

library(dplyr)
dat %>%
  group_by(ID) %>%
  filter(any(Nb_Test == 0) & c(TRUE, diff(Nb_Test) == 1))
## A tibble: 5 x 2
## Groups:   ID [2]
#  ID    Nb_Test
#  <chr>   <int>
#1 A1          0
#2 A1          1
#3 A1          2
#4 A3          0
#5 A3          1