library(jiebaRD)library(jiebaR) ##调入分词的库cutter<-worker()mydata=read.csv(file.choose(),fileEncoding='UTF-8',stringsAsFactors=FALSE,header=FALSE)##读入数据(特别...