txt<-readLines("/Users/git/Desktop/Word.txt")
txt<-strsplit(txt,' ')
class(txt)
txt=unlist(txt)
class(txt)
txt<-chartr("A-Z", "a-z", txt)
txt1<-gsub('[[:punct:]]\\w?','',txt)
txt2<-table(txt1)
txt2<-sort(txt2,decreasing = T)
barplot(txt2[1:100])
sum(txt2)