Пожалуйста, найдите мой код
tokenizer <- function(x) {
NGramTokenizer(x, Weka_control(min = 2, max = 2))
}
bi_pro_TDM_c_corpus <- TermDocumentMatrix(pro_c_corpus, control = list(tokenize = tokenizer))
bi_pro_TDM_c_corpus_m<-as.matrix(bi_pro_DTM_c_corpus)
bi_pro_freq <- rowSums(bi_pro_DTM_c_corpus_m)
wordcloud(names(bi_pro_freq),bi_pro_freq, max.words = 25, color = "blue")
bi_pro_term_frequency <- sort(bi_pro_freq, decreasing = TRUE)
Теперь я хочу построить гистограмму для моих би-слов