r - 将多个excel文件合并到R中，仅取第二张纸，保留文件名 'data source'

Question

我正在尝试将多个 Excel 文件合并到 R 中的单个 data.frame 中 - 所有文件都是从一个公共(public)文件夹中提取的，仅提取第二个工作表，该工作表始终具有特定的名称(“值(value)评估”)。

此外，还能够保留列中的每个文件名，以便维护合并​​数据的来源。

我已经能够加载文件并合并到一个 data.frame 中，但无法弄清楚如何将文件名保留为“源名称”。

setwd(/.)
file.list <- list.files(pattern='*.xlsx')
df.list <- lapply(file.list,read_excel)
df <- rbindlist(df.list, idcol = "id")

Answer 1

使用setNames():

file.list <- list.files(pattern = '*.xlsx')
file.list <- setNames(file.list, file.list)
df.list <- lapply(file.list, read_excel, sheet = 2)
df.list <- Map(function(df, name) {
  df$source_name <- name
  df
}, df.list, names(df.list))
df <- rbindlist(df.list, idcol = "id")

(注意:可能是一个拼写错误，您缺少 sheet = 2)。