在 R 中添加一个包含每个 FINAL 列表（在列表列表中）名称的变量

Question

我有一个列表列表，例如 ll：

ll <- list(a = list(data.frame(c = 1, d = 2), data.frame(h = 3, j = 4)), b = list(data.frame(c = 5, d = 6), data.frame(h = 7, j = 9)))

我想在每个最终列表中添加一个变量 grp。此变量 (grp) 必须包含每个列表的名称/值。因此，新的列表列表可能类似于 ls：

ls <- list(a = list(data.frame(c = 1, d = 2, grp = 1), data.frame(h = 3, j = 4, grp = 2)), b = list(data.frame(c = 5, d = 6, grp = 1), data.frame(h = 7, j = 9, grp = 2)))

注意：grp 可能不遵循从 1:n 开始的序列。我寻找的方法可能类似于以下bind_rows(df, .id = 'grp')。 唯一的一点是，在这种情况下，我不想进行行绑定（至少不是这种方式，而是另一种方式Unlist LAST level of a list in R）

有什么线索吗？

Answer 1

您可以使用lapply 简单地循环通过关卡

setNames( lapply( 1:length(ll), function(x) lapply( 1:length(ll[[x]]), 
  function(y) cbind(ll[[x]][[y]],grp=y ) ) ), names(ll) )
$a
$a[[1]]
  c d grp
1 1 2   1

$a[[2]]
  h j grp
1 3 4   2


$b
$b[[1]]
  c d grp
1 5 6   1

$b[[2]]
  h j grp
1 7 9   2

Answer 2

从帖子看来，组是为每个嵌套列表迭代定义的。我们可以使用seq_along 创建组，并将其应用于列表ll 的每个元素。
base R

lapply(ll, \(.){
  Map(function(i, n) {n$grp = i ; n}, seq_along(.), .)
})
$a
$a[[1]]
  c d grp
1 1 2   1
$a[[2]]
  h j grp
1 3 4   2
$b
$b[[1]]
  c d grp
1 5 6   1
$b[[2]]
  h j grp
1 7 9   2

咕噜声

map(ll, ~imap(.x, ~{.x$grp <- .y ; .x}))

对于纯粹使用lapply、mapply 或purrr::map 的类似方法，请参阅this SO post。在这种方法中，与预期结果的唯一区别是向量的类，integer 而不是numeric，请参阅waldo::compare(ls, ll)。