문자열에서 키워드 뒤에 단어를 유지하십시오. R

Question

문제점 : 텍스트 마이닝을위한 토크 나이 저는 작업 중이며 입력 데이터의 문자열 길이를 제한하고 싶습니다. 다음 코드는 단어가 포함되어 있으면 전체 문자열 을 유지합니다.

#create data frame with data 
    dd <- data.frame(
    text = c("hello how are you doing thank 
       you for helping me with this 
       problem","junk","junk"), stringsAsFactors = F) 

    #keep string that only include term "how" 
    dd <- filter(dd, grepl('how', text)) 

질문 : 난 그냥 키워드 후 N 단어를 유지하기 위해 코드를 수정할 수있는 방법.

N = 1 다음 DD 포함 할 경우

는 : 얼마나

는 N = 2는 DD 포함 할 경우 : 어떻게

을하고있다 : 당신은 어떻게

N은 = 3 다음 DD 포함 할 경우입니다

:

...

나는 또한 킵의 추가 단어를 포함하는 경우 그 일을 할 코드가 필요 여기

Answer 1

은 깔끔한 텍스트 마이닝 패키지 : (그래서 확인 종속 ...- 내가 scope으로 언급

library(tidytext) # install.packages("tidytext") 
library(tidyr) # install.packages("tidyr") 
library(dplyr) # install.packages("dplyr") 

dd <- data.frame(
    text = c("hello how are you doing thank 
       you for helping me with this 
       problem","junk","junk"), stringsAsFactors = F) 

WIH 가능한 방법입니다 단어 지평선 대한 매개 변수; 함수에 다음 코드를 설정하기 쉬운 : 귀하의 코멘트에 대해서는

scope=3 
dd %>% 
unnest_tokens(ngram, text, token = "ngrams", n = 1+scope) %>% 
    separate(ngram, paste("word",1:(scope+1),sep=""), sep = " ") %>% 
    filter(word1 %in% c("how")) %>% apply(.,1,paste, collapse= " ") 

[1] "how are you doing" 

: 경우

scope=2 
dd %>% 
    unnest_tokens(ngram, text, token = "ngrams", n = 1+scope) %>% 
    separate(ngram, paste("word",1:(scope+1),sep=""), sep = " ") %>% 
    filter(word1 %in% c("how","me")) 

# A tibble: 2 × 3 
    word1 word2 word3 
    <chr> <chr> <chr> 
1 how are you 
2 me with this 

당신은 문자열을 끝내고 싶어, 당신은 예를 들어 ngrams, CF 두 번째 예제를 다시 축소해야 : 청크 (문자열) 당 청크 (문자열)를 작업하려면이 그룹을 명시 적으로 처리해야합니다. 여기 은 인스턴스에 대한 방법입니다 :

scope=2 
subsets <- 
    dd %>% 
    mutate(id=1:length(text)) %>% 
    split(., .$id) 

unlist(lapply(subsets, function(dd) { 
    dd %>% 
    unnest_tokens(ngram, text, token = "ngrams", n = 1+scope) %>% 
    separate(ngram, paste("word",1:(scope+1),sep=""), sep = " ") %>% 
    filter(word1 %in% c("how","problem")) %>% 
    apply(.,1,FUN=function(vec) paste(vec[-1],collapse=" ")) 
})) 

      1 
"how are you"