R语言绘图：词云图

使用wordcloud2绘制词云图

library(wordcloud2)
findwords<-function(tf){
        txt<-scan(tf,"")
        wl<-list()
        for(i in 1:length(txt)){
                wrd<-txt[i]
                wl[[wrd]]<-c(wl[[wrd]],i)
        }
        return(wl)
}
words<-findwords("testconcorda.txt")
wordfreq<-function(wrf){
        for(i in 1:length(wrf)){
                wrf[[i]]<-length(wrf[[i]])
        }
return(wrf)
}
wrf<-wordfreq(words)
data<-function(dt){
        word<-names(dt)
        count<-c()
        for(i in 1:length(dt)){
                count[i]<-dt[[i]]
        }
        wordcloud<-data.frame(word,count)
        return(wordcloud)
}
data1<-data(wrf)
wordcloud2(data1,color="random-light",backgroundColor = "grey")