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")