创建列表对象后，为列表列表中的元素创建子列表

Question

样品清单：

sublist <- list(foo = "foo", bar = "bar", baz = "baz")

sample_list <- list(a = sublist,
                    b = sublist,
                    c = sublist)

在这里，我想为上述每个列表中a b和c中的元素创建一个子列表。也就是说，我想嵌套foo，bar，baz，在我按照上述方式创建列表后，再往下一个列表。

所需的输出：

sample_list <- list(a = list(a_down = sublist),
                    b = list(b_down = sublist),
                    c = list(c_down = sublist))

Answer 1

我们可以使用add

imap

或使用library(purrr) out2 <- imap(sample_list, ~ set_names(list(.x), paste0(.y, "_down")))

lst

-检查OP的输出

imap(sample_list, ~ lst(!! paste0(.y, "_down") := .x))