本文共 2593 字，大约阅读时间需要 8 分钟。

��������������������������������������� [Python](https://www.cnblogs.com/yukiwu/p/10967037.html) ��� [JavaScript](https://www.cnblogs.com/yukiwu/p/10968816.html) ������������������������������������ R��������� SPSS ��� SAS ��� Word Cloud ������������������������ R ������������ ##### >> Create Word Cloud via R

---

1. ���������������

��������������������������������������� Word Cloud History.txt ���������������������������������������������������������������������������������������������������������������������������������������������

2. ������������������������ R ������

# Installinstall.packages("tm")  # for text mininginstall.packages("wordcloud") # word-cloud generator install.packages("RColorBrewer") # color palettes# Loadlibrary("tm")library("wordcloud")library("RColorBrewer")

3. ��������������������������������������������������������������� inspect() ������������������������������������

#Read text filetext <- readLines(file.choose())# Load the data as a corpusdocs <- Corpus(VectorSource(text))#Inspect the content#inspect(docs)[1:10]

4. ������������������������������ tm_map() ������������������������������������������������������������������������������������������

# Convert the text to lower casedocs <- tm_map(docs, content_transformer(tolower))# Remove numbersdocs <- tm_map(docs, removeNumbers)# Remove english common stopwordsdocs <- tm_map(docs, removeWords, stopwords("english"))# Remove punctuationsdocs <- tm_map(docs, removePunctuation)# Eliminate extra white spacesdocs <- tm_map(docs, stripWhitespace)

5. ��������������������������������������� (words) ������������ (frequencies) ������������������ TermDocumentMatrix() ��������� text mining ������������������������������������ head() ������������������������

#Convert this into a matrix formatm <- as.matrix(dtm)#Gives you the frequencies for every wordv <- sort(rowSums(m),decreasing=TRUE)d <- data.frame(word = names(v),freq=v)#Scan the data#head(d, 10)

6. ������ word cloud���

wordcloud(words = d$word, freq = d$freq, scale=c(5,0.5), min.freq = 1,          max.words=200, random.order=FALSE, rot.per=0.35,           colors=brewer.pal(8, "Accent"))

##### >> Notes

---

��������������� wordcloud() ������������������������������������������������������������������ help(wordcloud) ������ help(RColorBrewer) ���������������������������������

##### >> Sample Code

---

##### >> Related Blogs

---

1. [Word Cloud (������) - Python](https://www.cnblogs.com/yukiwu/p/10967037.html)2. [Word Cloud (������) - JavaScript](https://www.cnblogs.com/yukiwu/p/10968816.html)3. [Word Cloud (������) - Matlab](https://www.cnblogs.com/yukiwu/p/10971998.html)