使用 purrr 将数据框名称添加到数据框列表中的列

Question

我有一个从 excel 文件导入的数据框列表。每个文件都被导入并以它们代表的批次命名。

下面是一个例子：

library(tidyverse)
batch_1 <- data.frame(A = 1:3,
                      B = 4:6)
batch_2 <- data.frame(A = 1:3,
                      B = 4:6)
batch_3 <- data.frame(A = 1:3,
                      B = 4:6)
my_list <- list(batch_1, batch_2, batch_3)

我现在想在每个数据框中创建一个新列，即每个数据框的名称。

所以每个数据框看起来像：

  A B   batch
1 1 4 batch_1
2 2 5 batch_1
3 3 6 batch_1

然后我会将其合并为一个数据框以便绘制。我可以通过 mutate(batch = deparse(substitute(batch_1))) 手动完成，但我正在努力“purrr-ifying”这个。

map(my_list, ~mutate(batch = deparse(substitute(.x))))

报错： UseMethod("mutate") 错误：没有适用于 'mutate' 的方法应用于 class“字符”

的对象

不必特定于 purrr，欢迎使用任何方法。

编辑： @user63230 解决方案有效。但是，通常情况下，您会在已有解决方案的情况下找到解决方案！

这种情况的另一种解决方案是在后面将数据帧合二为一。

bind_rows(my_list, .id = "batch") 将添加一个带有数据框名称的 id 列。

Answer 1

另一种方法是使用 lst 而不是 list，它会自动为您命名列表 imap，直接使用这些名称 (.y)。

library(tidyverse)
my_list <- lst(batch_1, batch_2, batch_3)
purrr::imap(my_list, ~mutate(.x, batch = .y))

# $batch_1
#   A B   batch
# 1 1 4 batch_1
# 2 2 5 batch_1
# 3 3 6 batch_1

# $batch_2
#   A B   batch
# 1 1 4 batch_2
# 2 2 5 batch_2
# 3 3 6 batch_2

# $batch_3
#   A B   batch
# 1 1 4 batch_3
# 2 2 5 batch_3
# 3 3 6 batch_3

Answer 2

使用 base 和 plyr 的备选答案是，

#import all batch dataframes 
df= mget(grep(pattern = "bat", x = ls(), value = TRUE))

#convert the list to dataframe
df = ldply(df, as.data.frame)

使用 purrr 将数据框名称添加到数据框列表中的列

Dataframe name to column in list of dataframes using purrr

r

purrr