使用R从多个excel文件中提取数据

Question

我在一个具有类似结构的文件夹中有许多 excel 文件：

我想将它输出到类似的东西：

这是我尝试过的。 虽然我能够提取 B15:G17 中的单元格范围，但如何将单元格 B8 附加到列中？ 另外，可以将第 10 行作为列标题吗？

library("readxl")

file.list <- list.files(path=".", pattern=".xlsx")

df.list <- lapply(file.list, read_excel, sheet=1, range=("B15:G17"), col_names=FALSE, col_types = NULL)
df <- data.frame(df.list)

Answer 1

read.xlsx的openxlsx更加灵活，因为我们可以指定rows/cols参数来读取特定单元格以及使用startRow指定起始行

library(openxlsx)
lst1 <- lapply(file.list, function(x) read.xlsx(x, sheet = 1, startRow = 10, cols = 3:6, rows = 15:17))

另外，分别读取特定的单元格，然后在list每个数据集中使用Map和cbind将其绑定为新列 'ID'

lst2 <- lapply(file.list, function(x) setNames(read.xlsx(x, sheet = 1,
       rows = 8, cols = 2), 'ID'))

Map(cbind, ID = lst2, lst1)