R - 如何从一个文件夹中读取多个文件，将它们转换为 xts 并对它们进行一些数据分析？答案

【问题标题】：R - How to read multiple files from a folder, convert them in xts and do some data analysis on them?R - 如何从一个文件夹中读取多个文件，将它们转换为 xts 并对它们进行一些数据分析？
【发布时间】：2016-08-22 00:34:42
【问题描述】：

我有一个包含 199 个文件的文件夹（从 blah-001-a.exp 到 blah-199-a.exp）

我想为每个文件做这样的事情：

DF<- read.csv("D:/ebook/myfolder/blah-001-a.exp", sep=";")
xts<-xts(x=DF[,-c(1,13)], order.by = as.Date(x=DF$DATA,format="%d.%m.%Y"))
#other codes and report pdf file...

我尝试了一些这样的代码，但它只读取文件而不将它们转换为 xts：

folder <- "D:/ebook/myfolder/"    
filenames <- list.files(path=folder) 
for (i in 1:length(filenames)){
      assign(filenames[i], 
             read.csv(paste0(folder, filenames[i]),sep=';')
      )}

你能给我一些建议吗？提前致谢。

【问题讨论】：

以列表的形式读取文件。请参阅working with lists of data.frames 上的以下答案。这是要走的路。

标签： r loops xts

【解决方案1】：

do.stuff <- function(file_in){
    DF <- read.csv(file_in, sep=";")
    xts <-xts(x=DF[,-c(1,13)], order.by =as.Date(x=DF$DATA,format="%d.%m.%Y"))
}
the_files <- list.files('path/to/files',full.names = T)
the_stuff <- lapply(1:length(the_files),function(i)do.stuff(the_files[[i]]))
names(the_stuff) <- basename(the_files)

【讨论】：