R批量讀取txt文件
本文數據,代碼都是參考的是大音如霜公眾號，只是自己跟着做了一遍.
1 path<-'C:\\Users\\Administrator\\Desktop\\docs' 2 docs<-dir(path)
#completepath<-apply(docs,function(x) paste(path,x,sep = '\\'))#原文中有這句，但我覺得這句可以刪除，只是對后面msg的一個解釋，也不知對不對，以后再說吧
3 get.msg<-function(x){ 4 con<-file(x,open = 'rt')#打開文件 5 msg<-readLines(con)#分行讀取 6 close(con)#關閉路徑 7 return(paste(msg,collapse = ''))#將第一行和最后一行連接在一起，也可不黏貼在一起 8 } 9 msg<-lapply(docs,function(p) get.msg(paste(path,p,sep = '\\'))) 10 msg
解釋:
path:設定文件路徑
docs：找出路徑中的所有文件。用dir函數提取路徑下的所有文件名稱
complepath：使用paste函數將路徑和文件名黏貼在一起，生成一個完整的路徑。（這里應該也可以用循環，現在不會）