jiebaR 中文分词 0.3 版本发布,此版本更新内容如下:
install.packages("jiebaR")
library(jiebaRD)
qseg <= "江州市长江大桥参加了长江大桥的通车仪式"
[1] "江州" "市长" "江大桥" "参加" "了" "长江大桥" "的"
[8] "通车" "仪式"
#把文本分词,并以文本的形式输出
cutter = worker()
cutter <= "e://wordseg.txt"
如何统计词频?
词云图?
mydata<-read.table("e://wordseg.txt",head=TRUE)
mycolors <- brewer.pal(8,"Pastel2")
wordcloud(mydata$词汇,mydata$词频,random.order=FALSE,random.color=FALSE,colors=mycolors,family="myFont3")
install.packages("jiebaR")
library(jiebaRD)
qseg <= "江州市长江大桥参加了长江大桥的通车仪式"
[1] "江州" "市长" "江大桥" "参加" "了" "长江大桥" "的"
[8] "通车" "仪式"
#把文本分词,并以文本的形式输出
cutter = worker()
cutter <= "e://wordseg.txt"
如何统计词频?
词云图?
mydata<-read.table("e://wordseg.txt",head=TRUE)
mycolors <- brewer.pal(8,"Pastel2")
wordcloud(mydata$词汇,mydata$词频,random.order=FALSE,random.color=FALSE,colors=mycolors,family="myFont3")