r - 使用 R 从数据框的列中过滤掉不连续的数字

Question

假设我有一个这样的数据框:

DAYS   VALUE
1      A
2      A
3      A
5      A
7      A
9      A
10     A
12     A
13     A
14     A
15     A

我正在尝试导出一个函数，以便仅保留一系列连续数字(最少 3 个)，如下所示:

DAYS   VALUE
1      A
2      A
3      A
12     A
13     A
14     A
15     A

我想知道包中是否有任何函数可以做到这一点？

谢谢!

Answer 1

必须有更简单的方法......但是作为oneliner:

d[(1+(s<-c(0,cumsum(1-(diff(d$DAYS)==1)))))%in%which(table(s)>=3),]

一步一步

d1 <- c(FALSE, diff(d$DAYS)!=1)
d2 <- cumsum(d1)+1
d3 <- table(d2)
d4 <- which(d3 >= 3)
d[d2 %in% d4,]