R tm 包 stemCompletion 返回词干和 NA 而不是完整的词干

如何解决R tm 包 stemCompletion 返回词干和 NA 而不是完整的词干

我在使用 stemCompletion 时遇到问题。这是一个可重现的示例。

library("tm")
library("snowballC")
text <- "communicate. communicate Communicates communicating Communication 1"
corpus <- Corpus(VectorSource(text))
toSpace <- content_transformer(function (x,pattern) gsub(pattern," ",x))
corpus <- tm_map(corpus,toSpace,"/")
corpus <- tm_map(corpus,"@")
corpus <- tm_map(corpus,"\\|")
corpus <- tm_map(corpus,content_transformer(tolower))
corpus <- tm_map(corpus,content_transformer(removeNumbers))
corpus <- tm_map(corpus,removeWords,stopwords("english"))
corpus <- tm_map(corpus,content_transformer(removePunctuation))
corpus <- tm_map(corpus,content_transformer(stripwhitespace))
dictionary <- corpus # save this to use as a dictionary for stemCompletion
stemmed_corpus <- tm_map(corpus,content_transformer(stemDocument),language="english")
stemmed_corpus[[1]][1] # confirm words are stemmed properly
dictionary[[1]][1] # confirm the dictionary has complete words

# this is the part that's not working as expected:
completed_corpus <- tm_map(stemmed_corpus,content_transformer(stemCompletion),dictionary=dictionary,type=c("prevalent"))
inspect(completed_corpus)

inspect(completed_corpus) 返回词干（“communic”）五次和一个 NA 值。

我的目标是得到完整的词干（“交流”五次）。

预先感谢您的任何建议。