R语言笔记004——R批量读取txt文件

R批量读取txt文件

本文数据,代码都是参考的是大音如霜公众号，只是自己跟着做了一遍.

 path<-'C:\\Users\\Administrator\\Desktop\\docs'
 docs<-dir(path)
  #completepath<-apply(docs,function(x) paste(path,x,sep = '\\'))#原文中有这句，但我觉得这句可以删除，只是对后面msg的一个解释，也不知对不对，以后再说吧
 get.msg<-function(x){
   con<-file(x,open = 'rt')#打开文件
   msg<-readLines(con)#分行读取
   close(con)#关闭路径
   return(paste(msg,collapse = ''))#将第一行和最后一行连接在一起，也可不黏贴在一起
 }
 msg<-lapply(docs,function(p) get.msg(paste(path,p,sep = '\\')))
 msg

解释:

path:设定文件路径

docs：找出路径中的所有文件。用dir函数提取路径下的所有文件名称

complepath：使用paste函数将路径和文件名黏贴在一起，生成一个完整的路径。（这里应该也可以用循环，现在不会）