en utilisant R pour filtrer les numéros non consécutifs d'une colonne de dataframe

Question

Supposons que j'ai une trame de données comme ceci:

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

Je suis en train de tirer une fonction de telle sorte que seule série de chiffres consécutifs (3 comme minimum) est resté, comme ceci:

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

Je me demande s'il y a des fonctions de paquets qui peuvent le faire?

Merci!

Answer 1

il doit y avoir beaucoup plus simple ... mais comme oneliner:

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

étape par étape

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

Answer 2

Une boucle for simple, fera ainsi:

d <- as.integer(DATA$DAYS) 
consec <- rep.int(FALSE, length(d)) 

for(i in 1:(length(d)-2)) 
    if(identical(d[i] + 1:2, d[i + 1:2])){ 
     consec[i + 0:2] <- TRUE 
    } 

DATA[consec, ]