정렬 된 문자의 벡터를 기반으로 데이터 프레임의 행을 필터링하십시오.

Question

내 질문이 중복되었지만 stackoverflow에서 검색 한 결과 가능한 해결책이 없는지 확실하지 않습니다.

I가 I 다음 dataframe 결과 숯 열에서 (이 순서로) 단어 빙고 형성 행만 선택하고자

num char 
1  A 
2  K 
3  I 
4  B 
5  I 
6  N 
7  G 
8  O 
9  Z 
10 Q 

다음 데이터 프레임 :

num char 
4  B 
5  I 
6  N 
7  G 
8  O 

도움을 주시면 감사하겠습니다.

Answer 1

d = data.frame(num=1:15, char=c('A', 'K', 'I', 'B', 'I', 'N', 'G', 'O', 'Z', 'Q', 'B', 'I', 'N', 'G', 'O')) 
w = "BINGO" 
N = nchar(w) 
char_str = paste(d$char, sep='', collapse='') 

idx = as.integer(gregexpr(w, char_str)[[1]]) 
idx = as.integer(sapply(idx, function(i)seq(i, length=N))) 
d[idx, ] 

    num char 
4 4 B 
5 5 I 
6 6 N 
7 7 G 
8 8 O 
11 11 B 
12 12 I 
13 13 N 
14 14 G 
15 15 O 

Answer 2

하나의 옵션은 사용하는 것입니다 zoo::rollapply :

library(zoo) 
bingo = c("B", "I", "N", "G", "O") # the pattern you want to check 

# use rollapply to check if the pattern exists in any window 
index = which(rollapply(df$char, length(bingo), function(x) all(x == bingo))) 

# extract the window from the table 
df[mapply(`:`, index, index + length(bingo) - 1),] 

# num char 
#4 4 B 
#5 5 I 
#6 6 N 
#7 7 G 
#8 8 O 

Answer 3

나는 아무도 루프처럼 생각하지만,이 자료의 가능성이다 : 나는 너무 빨리 처음 있지만 기반 갔다

char <- c("A", "K", "I", "B", "I", "N", "G", "O", "Z", "Q") 
num <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) 
df <- data.frame(num, char) 

word <- "BINGO" 
index <- NULL 
for(z in 1:nrow(df)){ 
    if(substr(word, 1,1) == as.character(df[z,2])){ 
    index <- c(index, z) 
    word <- substr(word, 2, nchar(word))  
    } 
} 

df[index,] 

Answer 4

당신이 준 예제에서, 나는 이것이 작동 할 수 있다고 생각한다 :

filter(df[which(df$char == "B"):dim(df)[1],], char %in% c("B","I","N","G","O")) 

Answer 5

다음은 재귀 함수를 사용하는 해결책입니다. BINGO의 문자는 연속적 일 필요는 없지만 순서대로 정렬해야합니다.

df <- data.frame(num=1:10,char=c("A","K","I","B","I","N","G","O","Z","Q"),stringsAsFactors = FALSE) 

word<-"BINGO" 

chars<-strsplit(word,"")[[1]] 

findword <- function(chars,df,a=integer(0),m=0){ #a holds the result so far on recursion, m is the position to start searching 
    z <- m+match(chars[1],df$char[(m+1):nrow(df)]) #next match of next letter 
    if(!is.na(z)){  
    if(length(chars)==1){ 
     a <- c(z,a) 
    } else { 
     a <- c(z,Recall(chars[-1],df,a,max(m,z))) #Recall is function referring to itself recursively 
    } 
    return(a) #returns row index numbers of df 
    } else { 
    return(NA) 
    } 
} 

result <- df[findword(chars,df),]