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