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