Question

我确信之前一定有人问过，但我找不到答案。

我有一个数据框列表，如下所示：

x  <- c(2, 3, 5)
y <- c("a", "b", "c")
df1 <- data.frame(x, y)

x <- c(3, 6, 9)
y <- c("a", "b", "c")
df2 <- data.frame(x, y)

ls <- list(df1, df2)
names(ls) <- c("example1", "example2")

我想要做的是根据数据框的名称创建一个新列text_id。我可以针对特定数据框执行此操作，如下所示：

ls[[1]]$text_id <- names(ls[1])

我以为我理解lapply()是如何运作的，但我显然不这样做，因为这不起作用：

ls2 <- lapply(ls, function(x){
ls[[x]]$text_id <- names(ls[x])
return(ls2)})

相反，我得到Error in ls[x] : invalid subscript type 'list'

我在进行子集化之前尝试as.data.frame，但这也无效。而且我也不确定回报的价值是否应该是ls2，但我还没有那么远。

Answer 1

您可以尝试Map

Map(cbind, ls, text_id=names(ls))

根据名称向列表中的数据框添加值

1 个答案: