第一步:批量读入数据,存储为Data.Frame格式
借鉴了下面帖子里面的做法
https://stackoverflow.com/questions/9564489/read-all-files-in-a-folder-and-apply-a-function-to-each-data-frame
path = "my path" #这里替换成自己的路径
LenPath = nchar(path)
filenames <- list.files(path , pattern="*.csv", full.names=TRUE)
ldf <- lapply(filenames, read.csv)
res <- lapply(ldf, summary)
names(res) <- substr(filenames,LenPath+2, LenPath + 30) #这里要根据自己的文件名改变长度
如果是txt文件,可以用下面的代码
path = "my path" #这里替换成自己的路径
LenPath = nchar(path)
filenames <- list.files(path , pattern="*.txt", full.names=TRUE)
ldf <- lapply(filenames, read.delim)
res <- lapply(ldf, summary)
names(res) <- substr(filenames,LenPath+2, LenPath + 30) #这里要根据自己的文件名改变长度