Question

我有一个包含大量工作表的Excel文件，我需要一个代码来在一个单独的数据框中导入每个工作表，该数据框的命名方式与Excel中的工作表名称相同。

示例，选项卡A，B，C将分别作为数据框A，B和C导入。

从其他线程，我看到代码如下： length(excel_sheets(filename))获取文件中的工作表数

然后创建一个包含每个标签的列表：

read_excel_allsheets <- function(filename) {
  sheets <- readxl::excel_sheets(filename)
  x <-    lapply(sheets, function(X) readxl::read_excel(filename, sheet = X))
  names(x) <- sheets
  x
}

但我不知道标签是如何从那里导入R的。

非常感谢帮助。提前谢谢！

Answer 1

这是一种方法：

# write test data
tf <- writexl::write_xlsx(
  list("the mtcars" = mtcars, "iris data" = iris), 
  tempfile(fileext = ".xlsx")
)

# read excel sheets
sheets <- readxl::excel_sheets(tf)
lst <- lapply(sheets, function(sheet) 
  readxl::read_excel(tf, sheet = sheet)
)
names(lst) <- sheets

# shove them into global environment
list2env(lst, envir = .GlobalEnv)

Answer 2

可以读一行。应该加载magrittr和dplyr软件包。

data <- lapply(list.files(pattern = "*.xlsx"),function(x) x=read_excel(x,sheet = "(sheetname)")) %>%  bind_rows

Answer 3

您的函数会读入所有选项卡并将其保存为单个列表的元素（因为lapply()）。您可以使用list2env

从列表中取出元素

your_excel_list <- read_excel_allsheets("test.xlsx")
list2env(your_excel_list, .GlobalEnv)

您会看到列表中的命名元素现在是全局环境中的数据框（或实际为tbl_df）

在R中将多个表格导入多个数据框架

3 个答案: