
library(tm)
library(wordcloud2)

source("http://canisius.edu/~yany/textAnalysis.R")
path<-'c:/yan/_now/China_R/code/c27_02_speech_3may2018_02.txt'



a<- readTextFile(path)
y<-wordFrequency(a)
y2<-data.frame(y)
y3<-data.frame(rownames(y2),y2)
names<-colnames(demoFreq)
colnames(y3)<-names
wordcloud2(data = y3)
