R做文本词频统计 百试不得其解

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

用Rstudio 做最简单的文本分析，统计词频做词云什么的，用了如下代码
在开始统计词频的时候就出错了，输出的结果是空的，请教各位，我这个代码什么地方出错了啊？？？

setwd("D://Desktop")
install.packages("jiebaRD")
library(jiebaRD)
install.packages("jiebaR")
library(jiebaR)
wk<-worker()
# 添加用户自定义词库
wk<-worker(user="dictionary.txt")#好像添加了也没用啊
# 删除停用词
wk<-worker(stop_word="ChineseStopWords.txt")
# 读取文本文件
wk[file.choose()]
# 选择分词后的文件
f<-scan(file.choose(),sep="\n",what="",encoding="UTF-8")
#统计词频及排序，从这一步开始出问题
df<-freq(wk[f])##这就直接报错，为什么啊
df<-df[order(-df$freq),]
install.packages("rlang")
install.packages("RSQLite")
install.packages("sqldf")
library(rlang)
library(RSQLite)
library(sqldf)
df<-sqldf("select [char],[freq] from df where length([char])>0 limit 100")
df<-df[nchar(df$char)>1,]
head(df)
View(df)

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Packages Library package install RStudio 文本分析 文本分析 文章 如何 统计 电脑 自动文本分析

怎么没来盗号！ 发表于 2020-4-22 11:34
用Rstudio 做最简单的文本分析，统计词频做词云什么的，用了如下代码
在开始统计词频的时候就出错了，输出 ...

可以试试python，比这个简单一些

494860871 发表于 2020-4-22 11:52
可以试试python，比这个简单一些

Python 在网上找的代码自己试也是各种出错，快疯了

楼主，用R做。成功了吗？ 我最近也在学这个。

用到的文件在附件中

1. library(jiebaR)
   
2. library(tmcn)
   
3. library(tidyverse)
   
4. library(wordcloud2)
   
5. 
   
6. 
   
7. wk <- worker()
   
8. # 文件放在工作目录下
   
9. f <- scan('a.txt',sep='\n',what='',encoding="UTF-8")
   
10. seg <- tibble(word=segment(f,wk))
    
11. 
    
12. # 停用词
    
13. stopwordsCN <- tibble(word = stopwordsCN())
    
14. 
    
15. 
    
16. # 词频统计
    
17. fre <- seg %>% anti_join(stopwordsCN) %>%
    
18.   filter(str_length(word) >= 2)%>%
    
19.   count(word,sort = T)
    
20. 
    
21. # 查看结果
    
22. fre
    
23. 
    
24. # 词云
    
25. wordcloud2(fre)

复制代码

jzbd 发表于 2020-9-5 13:48
楼主，用R做。成功了吗？ 我最近也在学这个。

成功了，统计词频用这个
f=freq(strsplit(readLines(out,encoding="UTF-8")," ")[[1]])