用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)