R语言笔记004——R批量读取txt文件
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函数将路径和文件名黏贴在一起，生成一个完整的路径。（这里应该也可以用循环，现在不会）
