Question

我又有一个简短的问题。在这种情况下你能帮我吗？我没有找到Google / Stackoverflow的解决方案..

1）我有很多CSV文件

示例：

CSV 1

X DATE       VAR1  VAR2  VAR3 ...
1 1/5/06      1     2     3     
2 1/6/06      1     2     3     
3 1/7/06      3     4     5     
4 1/8/06      4     5     6 
...

CSV2

X DATE       VAR1  VAR2  VAR3 ...
1 1/8/06      1     2     3     
2 1/5/06      1     2     3     
3 1/9/06      3     4     5     
4 1/3/06      4     5     6 
...

我有大约200个CSV文件。在CSV文件，很多重复和更多（我不想删除重复等，我不能做..）

我想获得单个data.frame或data.table。如果我导入了CSV文件，我从CSV文件中获取了数据表。我有一个非常糟糕的解决方案，它适用于行（这意味着，我将数据帧拆分为行并创建一个新的“allcsv”数据表）。没有那么好的解决方案（i 1：n）。

也许你有经验，你可以用一行来完成：

我想得到它：

ALLCSV（在一个文件中收集所有CSV文件）

X DATE       VAR1  VAR2  VAR3 ...
1 1/5/06      1     2     3     
2 1/6/06      1     2     3     
3 1/7/06      3     4     5     
4 1/8/06      4     5     6 
1 1/8/06      1     2     3  #<–––– that is the new CSV    
2 1/5/06      1     2     3     
3 1/9/06      3     4     5     
4 1/3/06      4     5     6 
...                         #<----- CSV(..x)

Answer 1

我从Roman Lustrik那里得到了答案（感谢链接！）。代码来到这里：

load_data <- function(path) { 
  files <- dir(path, pattern = '\\.csv', full.names = TRUE)
  tables <- lapply(files, read.csv)
  do.call(rbind, tables)
}

pollutantmean <- load_data("specdata")

导入CSV并在R

1 个答案: