Quisiera importar múltiples archivos csv con las características del siguiente archivo:

` ` ` MOVILING_Alcatraces <- read_csv("MOVILING_Alcatraces.csv", + col_types = cols(Media movil PM10 = col_number(), + PM10 = col_number(), PM2.5 = col_number(), + Year = col_number(), date = col_character())) `` `

Sin embargo, no he podido realizarlo. He intentado con el siguiente código:

```files2010 <- list.files(path="C:/Users/Lenovo/Desktop/R/Media movil/", pattern="*.csv")```

```myfiles<- lapply(X=files2010, FUN= function(x){read.csv(x, file = paste0(col_types = cols(Media movil PM10 = col_number(), + PM10 = col_number(), PM2.5 = col_number(), + Year = col_number(), date = col_character)})```

Pero me sale mensaje de error. 

Por otro lado, quisiera que la lista de salida, saliera con los nombres de la columna "site", ya que me sale con el nombre de la primera columna del archivo. 

Muchas gracias!