合并并汇总R中一个文件夹中的多个CSV

我正在尝试使用

R

将计算机上一个文件夹中的多个CSV文件（超过200个CSV）与所需的所有相关数据合并到一个新文件中。下面是两个当前CSV文件的示例（示例数据可在此处找到：）：

我正在尝试创建一个新的CSV文件，其中包含站点名称、编号、记录数、开始年份、结束年份以及开始和结束年份之间的年份数。文件夹中的每个原始CSV都有一个新行，如下所示：

---

假设您的CSV位于文件夹

/data

中，获取文件名向量

library(tidyverse)

filenames <- list.files("./data", "*.csv", full.names = TRUE)

应用函数并保存输出

result <- map_dfr(filenames, process_csv)

write_csv(result, "result.csv")

result
#> # A tibble: 2 x 6
#>   name        number count start_year end_year year_count
#>   <chr>        <dbl> <int>      <dbl>    <dbl>      <dbl>
#> 1 NEW_PLACE_1    123   281       1972     2020         48
#> 2 NEW_PLACE_2    155   393       1961     2020         59

result#一个tible:2 x 6
#>姓名编号开始\u年结束\u年\u计数
#>                            
#>1 NEW_PLACE_1 123 281 1972 2020 48
#>2 NEW_PLACE_2 155 393 1961 2020 59

非常感谢您。是否有办法增加条目的计数，例如，从上面的示例中，csv中日期占用的行数，即从第4行到最大条目？您可能希望使用

yaml

选项来

fread

：例如

data.table:：fread（file.csv，yaml=TRUE）

result <- map_dfr(filenames, process_csv)

write_csv(result, "result.csv")

result
#> # A tibble: 2 x 6
#>   name        number count start_year end_year year_count
#>   <chr>        <dbl> <int>      <dbl>    <dbl>      <dbl>
#> 1 NEW_PLACE_1    123   281       1972     2020         48
#> 2 NEW_PLACE_2    155   393       1961     2020         59