I am creating a Word Cloud based on tweets from various sports teams. This code successfully runs about 1 time in 10 times:
handle <- 'arsenal' txt <- searchTwitter(handle,n=1000,lang='en') t <- sapply(txt,function(x) x$getText()) t <- gsub('http.*\\s*|RT|Retweet','',t) t <- gsub(handle,'',t) t_c <- Corpus(VectorSource(t)) tdm = TermDocumentMatrix(t_c,control = list(removePunctuation = TRUE,stopwords = stopwords("english"),removeNumbers = TRUE, content_transformer(tolower))) m = as.matrix(tdm) word_freqs = sort(rowSums(m), decreasing=TRUE) dm = data.frame(word=names(word_freqs), freq=word_freqs) wordcloud(dm$word, dm$freq, random.order=FALSE, colors=brewer.pal(8, "Dark2"),rot.per=0.5)
Other 9 out of 10 times, it throws the following error:
Error in simple_triplet_matrix(i = i, j = j, v = as.numeric(v), nrow = length(allTerms), : 'i, j, v' different lengths In addition: Warning messages: 1: In mclapply(unname(content(x)), termFreq, control) : all scheduled cores encountered errors in user code 2: In simple_triplet_matrix(i = i, j = j, v = as.numeric(v), nrow = length(allTerms), : NAs introduced by coercion
Any ideas guys? I googled, but still not enough! Keep in mind that I am absolutely new to R!
r term-document-matrix word-cloud
Dan
source share