如何一次导入多个.csv文件？

Question

read.delim(file="filename", header=TRUE, sep="\t")

效率不是很高。

Answer 1

类似于以下内容的结果应该是每个数据帧作为单个列表中的一个单独元素：

temp = list.files(pattern="*.csv")
myfiles = lapply(temp, read.delim)

这假设您将这些CSV放在一个目录中--即您当前的工作目录--并且所有CSV都具有小写扩展名.csv。

如果您想将这些数据帧组合到一个数据帧中，请参阅其他答案中的解决方案，使用do.call(rbind,...)、dplyr::bind_rows()或data.table::rbindlist()。

如果您确实希望每个数据帧都在一个单独的对象中，即使这通常是不可取的，您可以使用assign执行以下操作：

temp = list.files(pattern="*.csv")
for (i in 1:length(temp)) assign(temp[i], read.csv(temp[i]))

或者，在不使用assign的情况下，为了演示（1）如何清理文件名和（2）如何使用list2env，您可以尝试以下操作：

temp = list.files(pattern="*.csv")
list2env(
  lapply(setNames(temp, make.names(gsub("*.csv$", "", temp))), 
         read.csv), envir = .GlobalEnv)

但是，通常最好将它们留在一个列表中。