qq_45889931的博客

library(jiebaR)library(wordcloud)#读入数据分隔符是‘\n’，字符编码是‘UTF-8’，what=''表示以字符串类型读入text <- read.table("2.txt",sep="\t",encoding="UTF-8")seg <- qseg[text] #使用qseg类型分词，并把结果保存到对象seg中seg <- seg[nchar(seg)>1] #去除字符长度小于2的词语seg <- table(seg) #统计词