Объединение файлов Excel из подпапок в один кадр данных в R

Question

В папке много папок, каждая из которых содержит два файла Excel.Я бы попытался объединить эти файлы в массив данных в R.

setwd("wd")
file_list <- list.files("wd")

Answer 1

Я получил его для работы со следующим кодом.

files <- list.files(pattern = "*.xls", path = "wd", recursive = TRUE, full.names = TRUE, all.files = TRUE, include.dirs = TRUE)

lst_of_frames <- lapply(files, readxl::read_excel)

oneframe <- do.call("rbind.data.frame", lst_of_frames)

Answer 2

Разумная отправная точка:

files <- list.files(pattern = ".*\\.xlsx$", path = "wd", recursive = TRUE, full.names = TRUE)
lst_of_frames <- lapply(files, readxl::read_excel)

# assuming *all* files have exactly the same structure
oneframe <- do.call("rbind.data.frame", lst_of_frames)
# if there are some *minor* differences between them, then one of the following might work better
oneframe <- dplyr::bind_rows(lst_of_frames)
oneframe <- data.table::rbindlist(lst_of_frames, fill = TRUE)