为列表中的每个 data.frame 元素分配唯一 ID

Question

我有很多（空间）data.frames 的列表。我想向每个 data.frame 添加一个列，该列的 ID 与列表索引 ID 等效（即，每个单独的 data.frame 的新列中的每一行都将具有相同的 ID）。

我想我必须将一些 apply 函数与 cbind 一起使用，但我不知道如何为列表中的每个元素（尤其是 Spatial data.frames 元素）格式化它。请帮忙！

这是一些可以使用的示例代码：

d1 <- data.frame(y1 = c(1, 2, 3), y2 = c(4, 5, 6))
d2 <- data.frame(y1 = c(3, 2, 1), y2 = c(6, 5, 4))
my.list <- list(d1, d2)

我想最终得到以下结果：

[[1]]
  y1 y2 unique.id
1  1  4  1
2  2  5  1
3  3  6  1

[[2]]
  y1 y2 unique.id
1  3  6  2
2  2  5  2
3  1  4  2

Answer 1

尝试：

newlist <- Map(cbind,my.list, unique.id = (1:length(my.list)))