搜索
人大经济论坛 › 附件下载

附件下载

所在主题：
文件名:  test.txt
资料下载链接地址: https://bbs.pinggu.org/a-2340499.html
附件大小:
58.55 KB   举报本内容
如题，使用的Rstudio调用R3.4.2 32bit, win10 64bit代码如下：
  1. setwd("C:/Users/2015/Desktop/test")
  2. library(tm);
  3. library(tmcn);
  4. yuliaoku<-Corpus(DirSource("C:/Users/2015/Desktop/test",pattern = "*.txt"),readerControl = list(language="UTF-8")) #
  5. yuliaoku<-tm_map(yuliaoku,stripWhitespace)
  6. library(rJava);
  7. library(Rwordseg);
  8. yuliaoku<-tm_map(yuliaoku,content_transformer(segmentCN),returnType="tm")
  9. control<-list(wordLengths=c(1,5),stopwords=stopwordsCN())
  10. mt<-TermDocumentMatrix(yuliaoku,control = control)
  11. vmt<-as.matrix(mt)
  12. val<-sort(rowSums(vmt),decreasing = TRUE)
  13. df<-data.frame(word=names(val),freq=val)
  14. library(wordcloud)
  15. wordcloud(df$word,df$freq,min.freq = 3,random.order = FALSE,colors = rainbow(length(row.names(vmt))))
复制代码
结果显示词云图中文乱码

附件为测试文本


    熟悉论坛请点击新手指南
下载说明
1、论坛支持迅雷和网际快车等p2p多线程软件下载，请在上面选择下载通道单击右健下载即可。
2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。
3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品，拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知，将积极的采取必要措施；同时，本站也将在技术手段和能力范围内，履行版权保护的注意义务。
(如有侵权，欢迎举报)
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

京ICP备16021002号-2 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问：王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2026-1-11 16:11