Чтение всех листов в книге Excel в список R с data.frames

Обновленный ответ с использованием readxl (22 июня 2015 г.)

С момента публикации этого вопроса был выпущен пакет readxl. Он поддерживает формат xls и xlsx. Важно отметить, что в отличие от других пакетов импорта Excel, он работает в Windows, Mac и Linux, не требуя установки дополнительного программного обеспечения.

Таким образом, функция для импорта всех листов в книге Excel будет:

library(readxl)    
read_excel_allsheets <- function(filename, tibble = FALSE) {
    # I prefer straight data.frames
    # but if you like tidyverse tibbles (the default with read_excel)
    # then just pass tibble = TRUE
    sheets <- readxl::excel_sheets(filename)
    x <- lapply(sheets, function(X) readxl::read_excel(filename, sheet = X))
    if(!tibble) x <- lapply(x, as.data.frame)
    names(x) <- sheets
    x
}

Это можно вызвать с помощью:

mysheets <- read_excel_allsheets("foo.xls")

Старый ответ

Основываясь на ответе, предоставленном @mnel, вот простая функция, которая принимает файл Excel в качестве аргумента и возвращает каждый лист как data.frame в именованном списке.

library(XLConnect)

importWorksheets <- function(filename) {
    # filename: name of Excel file
    workbook <- loadWorkbook(filename)
    sheet_names <- getSheets(workbook)
    names(sheet_names) <- sheet_names
    sheet_list <- lapply(sheet_names, function(.sheet){
        readWorksheet(object=workbook, .sheet)})
}

Таким образом, его можно было вызвать с помощью:

importWorksheets('test.xls')

Обратите внимание, что большинство функций XLConnect уже векторизованы. Это означает, что вы можете читать все листы с помощью одного вызова функции, не выполняя явную векторизацию:

require(XLConnect)
wb <- loadWorkbook(system.file("demoFiles/mtcars.xlsx", package = "XLConnect"))
lst = readWorksheet(wb, sheet = getSheets(wb))

С XLConnect 0.2-0 lst уже будет именованным списком.

Я наткнулся на этот старый вопрос и думаю, что самый простой подход все еще отсутствует.

Вы можете использовать rio для импорта всех листов Excel с помощью всего одной строчки кода.

library(rio)
data_list <- import_list("test.xls")

Если вы поклонник tidyverse, вы можете легко импортировать их как тибблы, добавив аргумент setclass к вызову функции.

data_list <- import_list("test.xls", setclass = "tbl")

Предположим, они имеют одинаковый формат, вы можете легко связать их по строкам, установив для аргумента rbind значение TRUE.

data_list <- import_list("test.xls", setclass = "tbl", rbind = TRUE)

Из официальной документации readxl (tidyverse) (изменение первой строки):

path <- "data/datasets.xlsx"

path %>% 
  excel_sheets() %>% 
  set_names() %>% 
  map(read_excel, path = path)

Подробности на: http://readxl.tidyverse.org/articles/articles/readxl-workflows.html#iterate-over-multiple-worksheets-in-a-workbook

Поскольку это ответ номер один на вопрос: Прочитать многостраничный Excel, чтобы перечислить:

вот решение openxlsx:

filename <-"myFilePath"

sheets <- openxlsx::getSheetNames(filename)
SheetList <- lapply(sheets,openxlsx::read.xlsx,xlsxFile=filename)
names(SheetList) <- sheets

Вы можете загрузить рабочую книгу, а затем использовать lapply, getSheets и readWorksheet и сделать что-то вроде этого.

wb.mtcars <- loadWorkbook(system.file("demoFiles/mtcars.xlsx", 
                          package = "XLConnect"))
sheet_names <- getSheets(wb.mtcars)
names(sheet_names) <- sheet_names

sheet_list <- lapply(sheet_names, function(.sheet){
    readWorksheet(object=wb.mtcars, .sheet)})

Добавление к ответу Пола. Листы также можно объединить, используя что-то вроде этого:

data = path %>% 
excel_sheets() %>% 
set_names() %>% 
map_df(~ read_excel(path = path, sheet = .x), .id = "Sheet")

Необходимые библиотеки:

if(!require(pacman))install.packages("pacman")
pacman::p_load("tidyverse","readxl","purrr")

Чтобы прочитать несколько листов из книги, используйте пакет readxl следующим образом:

library(readxl)
library(dplyr)

final_dataFrame <- bind_rows(path_to_workbook %>%
                              excel_sheets() %>%
                              set_names() %>%
                              map(read_excel, path = path_to_workbook))

Здесь bind_rows (dplyr) поместит все строки данных со всех листов в один фрейм данных, а path_to_workbook - это расположение ваших данных: dir / of / the / data / workbook.

excel.link выполнит свою работу.

На самом деле мне показалось, что его проще использовать по сравнению с XLConnect (не то чтобы любой из этих пакетов так уж и сложен в использовании). Время обучения для обоих составляло около 5 минут.

Кроме того, вы можете легко найти все пакеты R, в которых упоминается слово «Excel», перейдя по адресу http://cran.r-project.org/web/packages/available_packages_by_name.html

Я попробовал описанное выше, и у меня возникли проблемы с объемом данных, из которых мне нужно было преобразовать 20 МБ Excel; поэтому вышеупомянутое не сработало для меня.

После дополнительных исследований я наткнулся на openxlsx, и этот наконец помог (и быстро) Импортировать большой файл xlsx в R?

https://cran.r-project.org/web/packages/openxlsx/openxlsx.pdf