Как получить функцию и как прочитать файл с папкой с данными

Question

Я не могу заставить свою функцию lapply читать файлы, которые она только что прочитала в файле 2009 года, а не остальные.Итак, как мне исправить мой код так, чтобы он читался во все годы, начиная с 2009-2016 гг.

    library(dplyr)
setwd("C:/Users/Sarah/Downloads/ad_viz_plotval_data-")
    read.table(paste("ad_viz_plotval_data-", 2009, ".csv", sep = ""),
               header = TRUE, 
               sep = ",")

    Air <- function(i){
      for(i in 2009:2016){
        cnames <- read.table(paste("ad_viz_plotval_data-",i,".csv",sep = ""), 
                             header = TRUE,
                             sep = ",")
      }
    }



Using lapply, make a list containing a data.frame for each year.
```{r}
cnames1 <- lapply(2009:2016, Air)
f <- ldply(cnames1, data.frame)

Answer 1

Вы можете попробовать выполнить итерацию напрямую с lapply

files <- paste0("ad_viz_plotval_data-", 2009:2016, ".csv")
cnames1 <- lapply(files, read.csv)
f <- plyr::ldply(cnames1, data.frame)