为许多数据框创建带有文件名的列[重复]答案

【问题标题】：Creating a column with file name for many dataframes [duplicate]为许多数据框创建带有文件名的列[重复]
【发布时间】：2018-12-14 07:20:30
【问题描述】：

我目前正在使用 R Studio 版本 1.0.143 和 R 版本 3.4.4。

我正在尝试创建一个 apply() 函数，它对许多文件执行以下操作：

df1 <- read_excel("Sample 1.xlsx")
df1["Sample"] <- "Sample 1"
df2 <- read_excel("Sample 2.xlsx")
df2["Sample"] <- "Sample 2"
rbind(df1, df2) -> final

一个向数据框添加一列的函数，用于通知变量属于哪个样本，因为之后我将绑定所有样本。此功能不仅要读取许多excel文件，而且要在每个文件中添加一个带有文件名的列（例如）。我在其他问题中找不到类似的东西

我尝试使用 lapply，但没有成功。我需要这个，因为我想合并 100 多个数据帧（我可以手动完成，但不使用 apply 似乎很愚蠢）。所有文件都具有相同的列，因此不需要在一个文件中不存在列时放置 NA 的函数。

【问题讨论】：

将许多文件读入 R 是 StackOverflow 的 R 标记问题中被问到最多的问题之一。

标签： r loops dataframe apply

【解决方案1】：

names <- c("Sample 1", "Sample 2")

out_l <- lapply(names, function(x) {
  tmp_df <- read_excel(paste0(x, ".xlsx"))
  tmp_df[["Sample"]] <- x
  tmp_df
})
out_df <- do.call(rbind.data.frame, out_l)

或者根据@Parfait 的评论使用较短的版本

names <- c("Sample 1", "Sample 2")

out_l <- lapply(names, function(x) {
  transform(read_excel(paste0(x, ".xlsx")), Sample = x)
})
out_df <- do.call(rbind.data.frame, out_l)

【讨论】：

或使用transform 或within 用于lapply 内的一个衬垫：transform(read_excel(paste0(x, ".xlsx")), Sample = x)
确实如此。我试图坚持与 OP 类似的格式，以便在熟悉的基础上进行优化。
作为参考，names 是一个向量，而不是一个数据框。
我尝试了一些不同的方法，因此我不必创建“名称”数据框。 dta_files <- list.files('C:/Users, pattern = 'Sample', full.names = F) out_l <- lapply(dta_files, function(x) { transform(read_excel(paste0(x)), Sample = x) }) out_df <- do.call(rbind.data.frame, out_l) 这给了我一个包含每个文件名的列（示例 1.xlxs），这似乎足够好
是的，list.files() 是另一种有用且常见的方法。