data(moview_review)
txt <- movie_review[['review']][1:1000]
it <- itoken(txt, tolower, word_tokenizer)
vocab <- vocabulary(it)
#remove very common and uncommon words
pruned_vocab = prune_vocabulary(vocab, term_count_min = 10,
doc_proportion_max = 0.8, doc_proportion_min = 0.001, max_number_of_terms = 20000)
it <- itoken(txt, tolower, word_tokenizer)
corpus <- create_vocab_corpus(it, pruned_vocab)
dtm <- get_dtm(corpus, type = 'dgCMatrix' )
dtm_filtered <- dtm %>%
# filter out very common and very uncommon terms
filter_commons_transformer( c(0.001, 0.975) )
# simple term-frequency transormation
transformed_tf <- dtm %>%
tf_transformer
# tf-idf transormation
idf <- dtm_get_idf(dtm)
transformed_tfidf <- dtm %>%
tfidf_transformer( idf)
Run the code above in your browser using DataLab