R语言入门数据处理

library(readxl)

setwd('计算机内文件路径’）

getwd()   #检查计算机文件夹工作空间路径是否设置正确

files=list.files(getwd(),full.name=T)#获取文件夹下所有文件的绝对路径

first=read_excel('files[1]) #读取文件夹下第一个文件

for （i  in  （2：length（files））{

readopen=read_excel(files[i])

readrbind=rbind（first，readopen）

}

write.table(readrbind,file='保存路径‘）