install.packages(“Rcmdr”) install.packages(“wordcloud”) library(wordcloud) library(tm) install.packages(“tm”) install.packages(“wordcloud”) webshot::install_phantomjs() install.packages(“webshot”)

data(islands)
data(rivers)

library(Rcmdr)

## Loading required package: splines

## Loading required package: RcmdrMisc

## Loading required package: car

## Loading required package: carData

## Loading required package: sandwich

## Loading required package: effects

## lattice theme set by effectsTheme()
## See ?effectsTheme for details.

## The Commander GUI is launched only in interactive sessions

## 
## Attaching package: 'Rcmdr'

## The following object is masked from 'package:base':
## 
##     errorCondition

```r
library(tm)

## Loading required package: NLP

library(wordcloud)

## Loading required package: RColorBrewer

sjspeechtxt<-"C:\\Users\\Tasha\\Downloads\\School Files"
b<-Corpus(DirSource(sjspeechtxt), readerControl = list(language = "eng"))
b<-tm_map(b, tolower)
b<-tm_map(b, stripWhitespace)
b<- tm_map(b, removePunctuation)
b<- tm_map(b, removeWords,
stopwords("english"))
tdm<-TermDocumentMatrix(b)
m1<-as.matrix(tdm)
v1<-sort(rowSums(m1), decreasing=TRUE)
d1<-data.frame(word = names(v1), freq=v1)
wordcloud(d1$word,d1$freq, min.freq = 7,
max.words = 20, col=rainbow(8))