r - 将多张工作表从 excel 电子表格导入 r

Question

我想从单个 .xlsx 文件中导入由工作表名称中的公共字符串选择的多个工作表，并将它们连接到单个数据框中。例如，如果我有一个 Excel 文件 ('data.xlsx')，其中包含名为 samples1、samples2、samples3、controls1、controls2、controls3 的工作表。我想列出工作表名称，例如：

sheet_list <- lapply(excel_sheets('data.xlsx'), read_excel, path = 'data.xlsx')

然后，我想导入名称中包含“samples”的所有工作表，并将它们绑定到一个名为“samples”的数据框中。我怎样才能有效地做到这一点？

Answer 1

你很亲近！您可以使用lapply基础 R 来完成此任务，但我经常使用purrr包执行此类任务。

library(purrr)
library(readxl)    

sheets <- excel_sheets('data.xlsx')

sample_sheets <- sheets[grepl("samples", sheets)]

sheet_df <- map_dfr(sample_sheets, ~read_excel(path = 'data.xlsx', sheet = .x), id = .x)

这样做：

1. 获取工作表的名称。
2. 用于grepl将工作表子集为仅在名称中包含“样本”的工作表。
3. 用于map_dfr遍历样本表，读取每个样本表并分配一个等于表名称的 id 列，然后按行将所有结果绑定在一起并返回一个数据框。

Answer 2

这是做你想做的吗？

path <- "C:\\your_path_here\\test.xlsx"

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

Answer 3

试试这个

library(readxl)
list <- excel_sheets("path_to_excel.xlsx")
list_samples <- list[grepl("samples", list)]
df <- rbind(lapply(list_samples, function(x) read_excel("path_to_excel.xlsx", sheet = x)))