library(dplyr) library(readr) df <- list.files(path="yourpath", full.names = TRUE) %>% lapply(read_csv) %>% bind_rows