Delete comment from: One R Tip A Day
I get a lot of errors on this:
Error: failed to load external entity "http://cran.r-project.org/web/packages/available_packages_by_date.html"
> ap.corpus <- Corpus(DataframeSource(data.frame(as.character(t[,3]))))
Error in t[, 3] : object of type 'closure' is not subsettable
> ap.corpus <- tm_map(ap.corpus, removePunctuation)
Error in tm_map(ap.corpus, removePunctuation) :
object 'ap.corpus' not found
> ap.corpus <- tm_map(ap.corpus, tolower)
Error in tm_map(ap.corpus, tolower) : object 'ap.corpus' not found
> ap.corpus <- tm_map(ap.corpus, function(x) removeWords(x, stopwords("english")))
Error in tm_map(ap.corpus, function(x) removeWords(x, stopwords("english"))) :
object 'ap.corpus' not found
> ap.tdm <- TermDocumentMatrix(ap.corpus)
Error in TermDocumentMatrix(ap.corpus) : object 'ap.corpus' not found
> ap.m <- as.matrix(ap.tdm)
Error in as.matrix(ap.tdm) : object 'ap.tdm' not found
> ap.v <- sort(rowSums(ap.m),decreasing=TRUE)
Error in is.data.frame(x) : object 'ap.m' not found
> ap.d <- data.frame(word = names(ap.v),freq=ap.v)
Error in data.frame(word = names(ap.v), freq = ap.v) :
object 'ap.v' not found
> table(ap.d$freq)
Error in table(ap.d$freq) : object 'ap.d' not found
> pal2 <- brewer.pal(8,"Dark2")
> png("wordcloud_packages.png", width=1280,height=800)
> wordcloud(ap.d$word,ap.d$freq, scale=c(8,.2),min.freq=3,
+ max.words=Inf, random.order=FALSE, rot.per=.15, colors=pal2)
Error in wordcloud(ap.d$word, ap.d$freq, scale = c(8, 0.2), min.freq = 3, :
object 'ap.d' not found
Mar 22, 2013, 1:49:24 AM
Posted to Word Cloud in R