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

• 还没有人评论，欢迎说说您的想法！

相关课程

会中文就能学会的Python

4349 68元

Python大牛带你实现12306全自动抢票

8371 9.8元

Python入门到精通

7985 9.8元