如何使用R-wordcloud2包繪制詞云

library(jiebaRD) library(jiebaR) library(wordcloud2)

engine = worker() segment("流浪地球.txt",engine)data <- scan('流浪地球.segment.2019-04-09_22_36_54.txt',sep='\n',what='',encoding="UTF-8") data2 <- freq(data)data2 <- qseg[data]data.words <- data2head(data.words)

#過濾掉1個字的詞data.words <- subset(data.words, nchar(as.character(data.words))>1) #過濾停詞stop=read.table(file=file.choose(),colClasses="character") stopwords=c(NULL) for(i in 1:dim(stop)[1]){ stopwords=c(stopwords,stop[i,1]) }for(j in 1:length(stopwords)){ data.words <- subset(data.words,data.words!=stopwords[j]) }

data.freq <- table(unlist(data.words)) data.freq <- rev(sort(data.freq)) data.freq <- data.frame(word=names(data.freq), freq=data.freq)

#按詞頻過濾詞，過濾掉只出現(xiàn)過一次的詞，這里可以根據(jù)需要調(diào)整過濾的詞頻數(shù)data.freq=subset(data.freq, data.freq$freq.Freq>=2) head(data.freq)   word freq.Var1 freq.Freq1   地球      地球       1642   太陽      太陽        953 發(fā)動機(jī)    發(fā)動機(jī)        604   人類      人類        355   地面      地面        306   木星      木星        28

wordcloud2(data.freq[,2:3],color = "random-light", backgroundColor = "grey",shape = 'star')

letterCloud(data.freq[,2:3],word="地球",size = 2)

world = system.file("examples/download1.jpg",package = "wordcloud2")wordcloud2(data.freq[,2:3], figPath = world, size = 1,color = "black")