根据r中的列表名称重命名数据帧的列

要跟踪姓名,可以使用:

listDF <- list(df1 = df1, df2 = df2, df3  = df3, df4 = df4)

然后可以使用for循环:

for (i in names(listDF)){
  colnames(listDF[[i]]) <- c("A", i)
}

或者如果您需要使用lapply,您可以使用它:

newDF <- lapply(names(listDF), function(x){
  colnames(listDF[[x]]) <- c("A", x)
  listDF[[x]]
})
names(newDF) <- names(listDF) 

你可能喜欢用 dplyr::bind_rows 在这种情况下。它简化了将data.frames的名称用作组合数据帧中的新列。

# Create list as.
listDF <- list(df1 = df1, df2 = df2,df3 = df3, df4 = df4)

library(dplyr)

# Now combine all data frames. The name of data frame will be in 'DF_Name' column
bind_rows(listDF, .id = "DF_Name")

#    DF_Name  A  B
# 1      df1  1 11
# 2      df1  2 12
# 3      df1  3 13
# 4      df1  4 14
# 5      df1  5 15
# 6      df1  6 16
# 7      df1  7 17
# 8      df1  8 18
# 9      df1  9 19
# 10     df1 10 20
# 11     df2 21 31
# 12     df2 22 32
# 13     df2 23 33
#.................
#.................
# 58     df4 78 68
# 59     df4 79 69
# 60     df4 80 70

注: 作为 @Moody_Mudskippe 已经指出一个人可以简单地使用

listDF <- lst(df1, df2, df3, df4)

然后使用 dpylr::绑定\u行 .