stemDocument R 텍스트 마이닝

Question

내 데이터를 txt 파일이며 다음과 같습니다
overwiew 1
클라이언트 1
저장 한
마지 1
가격이
재고 2 개
경제 2
단어 number_doc

문서의 번호가 정렬됩니다 (가장 작은 것부터 가장 큰 것까지). 이제는 각 문서에 대해 문서에 속한 모든 단어를 원합니다. 이제 그들은 컬럼에 서 있지만, 나는 그 패키지의 일부 기능을 위해 필요하기 때문에 textdocument에있는 모든 단어를 원한다. 나는 이것을 다음과 같이했다 :

data <- read.table("poging.txt", header = TRUE) 
data 

doc <- c() 
#I paste all the words from a document together: 
doc[1] <- paste(data[1:4,1], collapse = ' ') 
doc[2] <- paste(data[1:4,1], collapse = ' ') 

#Make a data.frame of it 
doc_df <- data.frame(docs = doc, row.names = 1:2) 

#Install package 
install.packages("tm") 
library(tm) 

#Make a Dataframesource of it so that each row is seen as a document 
ds <- DataframeSource(doc_df) 
inspect(VCorpus(ds)) 

#Now I want to stem for example document number 1 
stemDocument(ds[[1]]) 

그러나 인수로 ds[[1]]을 사용하면 작동하지 않는다. 그는 문서 번호 1을 찾을 수 없습니다. 누군가 나를 도울 수 있습니까?

예에서 패키지 tm은 데이터 crude을 사용합니다. 내 데이터는 crude의 형식과 동일합니다. 실케

Answer 1

stemDocument()

는 TextDocument가 아닌 데이터 소스와 함께 사용하기위한 것입니다. DataSource를 사용하여 코퍼스를 만들고 싶다면 거기에서 문서를 추출 할 수 있습니다. stemDocument 새 문서를 반환하고 영구적으로 신체를 업데이트하지 않습니다

는

ds <- DataframeSource(doc_df) 
corpus <- VCorpus(ds) 
stemDocument(corpus[[1]]) 

참고. 따라서 출력물에 대해 아무 것도하지 않으려면 어딘가에 저장해야합니다.