以csv文件为例。

一、简单的批量读入

批量读入文件一般使用dir(...)，通过dir(...)可是获取该路径下所有的文件名。
如，现在需要批量读入C:\Users\Administrator\Desktop\test文件夹下所有的文件。

path = "C:\\Users\\Administrator\\Desktop\\test"
fileName = dir(path)
for(k in 19:length(fileName)){
  data = read.csv(file = paste(path,fileName[k],sep = "\\"),
                  header = T,stringsAsFactors = F)
}

或用apply代替for循环

path <- "C:\\Users\\Administrator\\Desktop\\test" 
fileNames <- dir(path) 
filePath <- sapply(fileNames, function(x){ 
                 paste(path,x,sep='\\')}) 
data <- lapply(filePath, function(x){
             read.csv(x, header=T)})  

注意，由于第二种方法使用了lapply(...)，因此得到的数据为list形式。

二、有选择的批量读入

利用正则表达式对读入的文件格式进行选择。
如在test文件夹中有多种格式的文件，但我们只需要读入YYYYMMDD形式的csv文件。
只需要将上面代码中的dir(...)中的pattern做出限制。

fileName = dir(path,pattern = '[0-9]{4}[0-9]{2}[0-9]{2}.csv')

下面是一些正则表达式的规则，来源于网络，侵删。