library("tm")
txt = read.csv("TEXT.txt", header=F)
# txt[1] contains the text I am interested in
c = Corpus(VectorSource(txt[1]))

tdm <- TermDocumentMatrix(c)
m <- as.matrix(tdm)
v <- sort(rowSums(m),decreasing=TRUE)
d <- data.frame(word = names(v),freq=v)

wordcloud(d$word,d$freq,min.freq=1)