如何将列表名称添加到df作为数据框的列

Question

有没有更好的方法将列表字段的名称（一般数据帧）添加为数据框列？

示例数据

df1 <- data.frame(x = 1:3, y = 3:5)
df2 <- data.frame(x = 1:3, y = 3:5)
df3 <- data.frame(x = 1:3, y = 3:5)

list = list()
list[["DF1"]] <- df1
list[["DF2"]] <- df2
list[["DF3"]] <- df3

它正在工作，但我希望尽可能避免循环。

 for (i in 1:length(list)) {
     list[[i]][,"name"] <- names(list[i])
    }

我正在尝试：

lapply(list, FUN = function(df){
  df$anothername <- names(list$df) #This return colnames.
  return(df)
})

输出我想得到：

$DF1
  x y name
1 1 3  DF1
2 2 4  DF1
3 3 5  DF1

$DF2
  x y name
1 1 3  DF2
2 2 4  DF2
3 3 5  DF2

$DF3
  x y name
1 1 3  DF3
2 2 4  DF3
3 3 5  DF3

Answer 1

我们可以Map中cbind data.frame list使用name的相应list {/ 1}}。

Map(cbind, list, name=names(list))
#$DF1
#  x y name
#1 1 3  DF1
#2 2 4  DF1
#3 3 5  DF1

#$DF2
#  x y name
#1 1 3  DF2
#2 2 4  DF2
#3 3 5  DF2

#$DF3
#  x y name
#1 1 3  DF3
#2 2 4  DF3
#3 3 5  DF3

更好的选择是rbindlist来创建单个数据集。

library(data.table)
rbindlist(list, idcol="name")