语料库中的单词数量

Sin*_*ina 4 r text-mining

我正在寻找一种方法来找到文本中最常用的单词,而我最常使用的是R.我的意思是它们的低频率是语料库中单词的1%.所以我需要计算语料库中的单词数量.

到目前为止,这是我的代码:

#!/usr/bin/Rscript
library('tm')
library('wordcloud')
library('RColorBrewer')
twittercorpus <- system.file("stream","~/txt", package = "tm")
twittercorpus <- Corpus(DirSource("~/txt"),
                        readerControl=list(languageEl = "en"))
twittercorpus <- tm_map(twittercorpus, removeNumbers)
twittercorpus <- tm_map(twittercorpus,tolower)
twittercorpus <- tm_map(twittercorpus,removePunctuation)
my_stopwords <- c(stopwords("SMART"))
twittercorpus <-tm_map(twittercorpus,removeWords,my_stopwords)
mydata.dtm <- TermDocumentMatrix(twittercorpus)
Run Code Online (Sandbox Code Playgroud)

我需要这样的东西:

freqmatrix <-findFreqTerms(mydata.dtm, lowfreq=rowSums(mydata.dtm)/100)
Run Code Online (Sandbox Code Playgroud)

Jus*_*tin 7

如果你看一下str(mydata.dtm)有一个名为的组件nrow.使用:

freqmatrix <- findFreqTerms(mydata.dtm, lowfreq=mydata.dtm$nrow/100)
Run Code Online (Sandbox Code Playgroud)