将多个CSV文件读入单独的数据框

Question

假设我们在目录C:\ R\Data中有文件file1.csv,file2.csv,...和file100.csv,我们希望将它们全部读入单独的数据框(例如file1,file2,...和file100).

这样做的原因是,尽管具有相似的名称,但它们具有不同的文件结构,因此将它们放在列表中并不是很有用.

我可以使用lapply但返回包含100个数据帧的单个列表.相反,我想在全球环境中使用这些数据框.

如何直接将多个文件读入全局环境？或者,或者,如何将数据框列表的内容解压缩到其中？

Answer 1

快速草案,未经测试:

1. 使用list.files()aka dir()动态生成文件列表.

2. 这将返回一个向量,只是在for循环中沿向量运行.

3. 读取第i个文件,然后使用assign()将内容放入新变量file_i

这应该为你做的伎俩.

Answer 2

谢谢大家的回复.

为了完整性,这里是我加载任意数量(制表符)分隔文件的最终答案,在这种情况下有6列数据,其中第1列是字符,2是因子,余数是数字:

##Read files named xyz1111.csv, xyz2222.csv, etc.
filenames <- list.files(path="../Data/original_data",
    pattern="xyz+.*csv")

##Create list of data frame names without the ".csv" part 
names <-substr(filenames,1,7)

###Load all files
for(i in names){
    filepath <- file.path("../Data/original_data/",paste(i,".csv",sep=""))
    assign(i, read.delim(filepath,
    colClasses=c("character","factor",rep("numeric",4)),
    sep = "\t"))
}

Answer 3

assign与包含所需数据框名称的字符变量一起使用.

for(i in 1:100)
{
   oname = paste("file", i, sep="")
   assign(oname, read.csv(paste(oname, ".txt", sep="")))
}

Answer 4

这是一种使用lapply解压缩data.frames列表的方法

filenames <- list.files(path="../Data/original_data",
                        pattern="xyz+.*csv")

filelist <- lappy(filenames, read.csv)

#if necessary, assign names to data.frames
names(filelist) <- c("one","two","three")

#note the invisible function keeps lapply from spitting out the data.frames to the console

invisible(lapply(names(filelist), function(x) assign(x,filelist[[x]],envir=.GlobalEnv)))

Answer 5

这个答案是对哈德利答案的一个更有用的补充.

虽然OP特别希望每个文件作为一个单独的对象读入他们的R工作区,但许多其他人天真地登陆这个问题可能会认为这就是他们想要做的事情,而实际上他们最好将文件读入一个数据框列表.

所以对于记录,这里是你如何做到这一点.

#If the path is different than your working directory
# you'll need to set full.names = TRUE to get the full
# paths.
my_files <- list.files("path/to/files")

#Further arguments to read.csv can be passed in ...
all_csv <- lapply(my_files,read.csv,...)

#Set the name of each list element to its
# respective file name. Note full.names = FALSE to
# get only the file names, not the full path.
names(all_csv) <- gsub(".csv","",
                       list.files("path/to/files",full.names = FALSE),
                       fixed = TRUE)

现在可以引用任何文件my_files[["filename"]],实际上只是在工作区中有单独的变量并没有太糟糕filename,而且通常更方便.

Answer 6

从文件夹中读取所有 CSV 文件并创建与文件名相同的向量：

setwd("your path to folder where CSVs are")

filenames <- gsub("\\.csv$","", list.files(pattern="\\.csv$"))

for(i in filenames){
  assign(i, read.csv(paste(i, ".csv", sep="")))
}