c1=c[c$freq>10&c$freq<500,]
write.csv(c, file = "C:/Users/Hua3/Desktop/1.csv")
par(family=("Microsoft YaHei"))
wordcloud(c1$char,c1$freq, min.freq = 2, random.order = F, ordered.colors = F, colors = rainbow(nrow(c1)))
wordcloud2(filter(c1, freq > 1), minSize = 2, fontFamily = "Microsoft YaHei", size = 1)
d1<- VCorpus(VectorSource(b1))
tdm <- TermDocumentMatrix(d1, control = list(wordLengths = c(1,Inf)))
tdm.tfidf<-weightTfIdf(tdm, normalize = F)
dtm<-as.matrix(tdm.tfidf)
v<-sort(rowSums(dtm), decreasing = T)
d<-data.frame(word=names(v),tfidf=v)
write.csv(d, file = "C:/Users/Hua3/Desktop/d.csv")