Wordcloud+;R中的语料库错误

Wordcloud+;R中的语料库错误,r,twitter,corpus,R,Twitter,Corpus,我想使用Wordcloud函数在twitter数据上进行云计算。我已经安装了twitter软件包,并且正在使用api。在那之后,我会做以下的事情 bigdata <- searchTwitter("#bigdata", n=20) bigdata_list <- sapply(bigdata, function(x) x$getText()) bigdata_corpus <- Corpus(VectorSource(bigdata_list)) bigdata_corpus

我想使用Wordcloud函数在twitter数据上进行云计算。我已经安装了twitter软件包,并且正在使用api。在那之后,我会做以下的事情

bigdata <- searchTwitter("#bigdata", n=20)

bigdata_list <- sapply(bigdata, function(x) x$getText())
bigdata_corpus <- Corpus(VectorSource(bigdata_list))
bigdata_corpus <- tm_map(bigdata_corpus, content_transformer(tolower), lazy=TRUE)
bigdata_corpus <- tm_map(bigdata_corpus, removePunctuation, lazy=TRUE)
bigdata_corpus <- tm_map(bigdata_corpus, 
                           function(x)removeWords(x,stopwords()), lazy=TRUE)
wordcloud(bigdata_corpus)
我尝试了不同的语料库命令,但似乎都做不好。 有什么想法吗?

你可以试试这个:

library("tm")
# Transform your corpus in a term document matrix
bigdata_tdm <- as.matrix(TermDocumentMatrix(bigdata_corpus))
# Get the frequency by words
bigdata_freq <- data.frame(Words = rownames(bigdata_tdm), Freq = rowSums(bigdata_tdm), stringsAsFactors = FALSE)
# sort
bigdata_freq <- bigdata_freq[order(bigdata_freq$Freq, decreasing = TRUE), ]
# keep the 50 most frequent words
bigdata_freq <- bigdata_freq[1:50, ]

# Draw the wordcloud
library("wordcloud")
wordcloud(words = bigdata_freq$Words, freq = bigdata_freq$Freq)
library(“tm”)
#在术语文档矩阵中转换语料库
bigdata\u tdm
library("tm")
# Transform your corpus in a term document matrix
bigdata_tdm <- as.matrix(TermDocumentMatrix(bigdata_corpus))
# Get the frequency by words
bigdata_freq <- data.frame(Words = rownames(bigdata_tdm), Freq = rowSums(bigdata_tdm), stringsAsFactors = FALSE)
# sort
bigdata_freq <- bigdata_freq[order(bigdata_freq$Freq, decreasing = TRUE), ]
# keep the 50 most frequent words
bigdata_freq <- bigdata_freq[1:50, ]

# Draw the wordcloud
library("wordcloud")
wordcloud(words = bigdata_freq$Words, freq = bigdata_freq$Freq)