Я использую пакет R text2vec для создания document-term-matrix. Вот мой код:
library(lime)
library(text2vec)
# load data
data(train_sentences, package = "lime")
#
tokens <- train_sentences$text %>%
word_tokenizer
it <- itoken(tokens, progressbar = FALSE)
stop_words <- c("in","the","a","at","for","is","am") # stopwords
vocab <- create_vocabulary(it, c(1L, 2L), stopwords = stop_words) %>%
prune_vocabulary(term_count_min = 10, doc_proportion_max = 0.2)
vectorizer <- vocab_vectorizer(vocab )
dtm <- create_dtm(it , vectorizer, type = "dgTMatrix")
Другой метод - hash_vectorizer () вместо vocab_vectorizer () как:
h_vectorizer <- hash_vectorizer(hash_size = 2 ^ 10, ngram = c(1L, 2L))
dtm <- create_dtm(it,h_vectorizer)
Но когда я использую hash_vectorizer, нет опции для удаления стоп-слов и сокращения словарного запаса. В учебном случае hash_vectorizer работает лучше, чем vocab_vectorizer для меня. Я знаю, что можно удалить стоп-слова после создания DTM или даже при создании токенов. Есть ли другие варианты, похожие на vocab_vectorizer и способ его создания. Особенно меня интересует метод, который также поддерживает сокращение словарного запаса, похожего на prune_vocabulary ().
Я ценю ваши ответы.
Спасибо, Сэм