我有很多(空间)data.frames的列表。我想向具有与列表索引ID等效的ID的每个data.frame添加一列(即,每个单独的data.frame的新列中的每一行都具有相同的ID)。
我想我必须与cbind一起使用一些apply函数,但是我不知道如何为列表中的每个元素设置格式(尤其是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
尝试:
newlist <- Map(cbind,my.list, unique.id = (1:length(my.list)))
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句