o library("jiebaR") # 加载 jiebaR 包 o library("wordcloud2") # 加载词云包
text<-readLines("d:/data.txt",encoding="UTF-8") #读取数据文件
#加载分词引擎，并配置自定义的停用词表过滤。
0 wk = worker(stop_word='d:/stopword.txt')0 fc <- segment(text,wk)
o filter<-c(" 宝宝 "," 小孩 "," 孩子")#去除不能反应症状的高频词