在R中製作一個簡單的wordcloud

Question

#Loading Packages 

library(tm) 
library(wordcloud) 

library(RColorBrewer) 

speech="/Users/GregDuncan/Desktop/bills.txt" 
modi_txt = readLines(speech) 


modi<-Corpus(VectorSource(modi_txt)) 


modi_data<-tm_map(modi,stripWhitespace) 

modi_data<-tm_map(modi_data,tolower) 

modi_data<-tm_map(modi_data,removeNumbers) 

modi_data<-tm_map(modi_data,removePunctuation) 

modi_data<-tm_map(modi_data,removeWords, stopwords(「english」)) 


tdm_modi<-TermDocumentMatrix (modi_data) #Creates a TDM 

TDM1<-as.matrix(tdm_modi) #Convert this into a matrix format 

v = sort(rowSums(TDM1), decreasing = TRUE) #Gives you the frequencies for every word 

Summary(v) 



wordcloud (modi_data, scale=c(5,0.5), max.words=1, random.order=FALSE, rot.per=0.35, use.r.layout=FALSE, colors=brewer.pal(8, 「Dark2″)) 

所以我試圖讓一個文字的文字雲。我試圖用RSCRIPT運行它，我碰到一個問題，像這樣的

enter Error: unexpected input in "modi_data<-tm_map(modi_data,removeWords, stopwords(?" 
Execution haltedcode here 

和

unexpected input in "wordcloud (modi_data, scale=c(5,0.5), max.words=1, random.order=FALSE, rot.per=0.35, use.r.layout=FALSE, colors=brewer.pal(8, �" 

我是很新，R，所以我想只是學習基本。我不知道是否有更多經驗的人可以快速看到問題

Answer 1

請注意下面的更改，它應該運行。我使用了tm包中的數據集crude。

library(tm) 
library(wordcloud) 

library(RColorBrewer) 

data(crude) 
modi_txt <- crude 

modi<-Corpus(VectorSource(modi_txt)) 


modi_data<-tm_map(modi,stripWhitespace) 

modi_data<-tm_map(modi_data,tolower) 

modi_data<-tm_map(modi_data,removeNumbers) 

modi_data<-tm_map(modi_data,removePunctuation) 

modi_data<-tm_map(modi_data, removeWords, stopwords("english")) # NB quote marks were wrong. This can happen if you copied from Word, for example 

modi_data<-tm_map(modi_data, PlainTextDocument) # NB: added this call 

tdm_modi<-TermDocumentMatrix (modi_data) 

TDM1<-as.matrix(tdm_modi) 

v = sort(rowSums(TDM1), decreasing = TRUE) 

summary(v) # NB need lower case "s" 

wordcloud (modi_data, scale=c(5,0.5), max.words=1, random.order=FALSE, rot.per=0.35, 
      use.r.layout=FALSE, colors=brewer.pal(8, "Dark2")) # NB had to fix quotes for "D... 

結果在這裏很奇怪，但您可能想要試驗wordcloud參數。