La forma más sencilla, usando funcionalidad base (salvo readxl
) podría ser:
library(readxl)
file.list <- list.files(pattern='*.xlsx')
df.list <- lapply(file.list, read_excel)
df.final <- do.call("rbind", df.list)
Detalle:
- Con
file.list <- list.files(pattern='*.xlsx')
generamos una lista a partir del patrón *.xlsx
, con lo cual tendremos en ella los nombres de los archivos que vamos a leer
- Con
df.list <- lapply(file.list, read_excel)
recorremos implícitamente la lista y leemos cada archivo, el resultado será una nueva lista df.list
dónde cada elemento será el data.frame
generado a partir de cada archivo
- Por último, con
do.call("rbind", df.list)
combinamos todos los dataframe
en uno único, obviamente la estructura de los mismos debe ser idéntica para poder combinarlos.
Ahora, si te animas a usar tidyverse
(te lo recomiendo), puedes aprovechar el pipe %>%
y las rutinas map*
del paquete purrr
para hacer algo muchísimo más simple y concreto:
list.files(pattern='*.xlsx') %>% # Con la lista de archivos
map_df(read_excel) -> df.final # leemos los excel y retornamos un único df
data.frame
?