Graph example

library(tibble)     # Enframe

## Registered S3 methods overwritten by 'tibble':
##   method     from  
##   format.tbl pillar
##   print.tbl  pillar

library(readr)      # Reading file
library(tm)         # Creating word freq-table

## Loading required package: NLP

library(wordcloud2) # Generating wordcloud
setwd("C:/Users/markr/OneDrive/Desktop")

mystring <- read_file("Ferret.txt")

corpus<-Corpus(VectorSource(mystring))
corpus<-tm_map(corpus, content_transformer(tolower))
corpus<-tm_map(corpus, removeNumbers)
corpus<-tm_map(corpus, removeWords, stopwords('english'))
#corpus<-tm_map(corpus, stemDocument, language = "english") 
corpus<-tm_map(corpus, removePunctuation)

tdm<-TermDocumentMatrix(corpus)

tdmatrix<-as.matrix(tdm)
wordfreq<-sort(rowSums(tdmatrix), decreasing = TRUE)

wordfreq = enframe(wordfreq)

wordcloud2(wordfreq, color = "random-light", backgroundColor = "white")