r for循环将列表中的每个文件分配给单个语料库

Question

我希望将许多类似的命令恢复到for循环中。

q001<-Corpus(VectorSource(read.table("./q001.txt",encoding="latin1")))
q001<-Corpus(VectorSource(read.table("./q001.txt",encoding="latin1")))
....
q150<-Corpus(VectorSource(read.table("./q150.txt",encoding="latin1")))

我的计算资源有限，这就是为什么我要构建单独的语料库，清理它们并对其进行tdm，然后将所有最终tdm合并到一个tdm矩阵中的原因

我建立以下循环

for(i in bNames){
  filepath <- paste("./Sample/", i,".txt", sep="")
  assign(i, Corpus(VectorSource(read.table(filepath,encoding="latin1")))
}

其中bNames是要作为单个语料库读取的文件的列表

并得到一个错误：

Error: unexpected '}' in:
"  assign(i, Corpus(VectorSource(read.table(filepath,encoding="latin1")))
}"

我做错了什么？

Answer 1

您在assign末尾缺少括号

assign(i, Corpus(VectorSource(read.table(filepath,encoding="latin1"))))