각 코퍼스의 처음 25 단어를 가져 오는 방법 (R)?

Question

저는이 기법이 코퍼스인지 여부에 관계없이 모든 데이터 프레임의 첫 번째 N 문자를 가져 오는 것과 비슷하다고 추측합니다.

내 시도 : Greetings를 n = 6 코퍼스로 시작

create.greetings <- function(corpus, create_df = FALSE) { 
    for(i in length(Charlotte.corpus.raw)) { 
    Doc1<-Charlotte.corpus.raw[i] 
    Word1<-Doc1[1:25] 
    Greetings[i]<-Word1 
    } 
    return(VCorpus) 
} 

. 널 코퍼스를 만드는 법이나 충분히 큰 문자의 코퍼스를 알아낼 수 없었습니다. 여기에 200 개의 문서 자료 (Charlotte.corpus.raw)가 있습니다. 벡터와 달리 (그리고 확장, 데이터 프레임), 널 코퍼를 생성하는 쉬운 방법이없는 것처럼 보입니다.

문제의 일부는 "문서"의 클래스를 인식하지 못하는 것입니다. 코퍼스 만 인식합니다. 즉, R에 대해, 단일 문서는 n = 1의 코퍼스입니다.

재현 할 샘플 : 그런 다음 몇 가지로 가지고있는 디렉토리에 대한 기능을 실행하는 'TM'과 'dplyr'와 'NLP'패키지뿐만 아니라 일반적인 R 패키지

read.corpus <- function(directory, pattern = "", to.lower = TRUE) { 
corpus <- DirSource(directory = directory, pattern = pattern) %>% 
    VCorpus # Read files and create `VCorpus` object 
if(to.lower == TRUE) corpus <- # Lowercase text 
    tm_map(corpus, 
      content_transformer(tolower)) 
return(corpus) 
} 

가 필요합니다 txt 문서라면, 함께 작업 할 코퍼스가 있습니다. 그런 다음 위에 나온 Charlotte.corpus.raw를 귀하의 코퍼스 이름을 그대로 사용하십시오.

Answer 1

각 문서의 처음 25 개 단어를 포함 인사의 각 행 :

greetings <- c() 
for(i in 1:length(corpus)) { 
    row <- unlist(corpus[i])[1:25] 
    greetings <- rbind(greetings, row) 
}