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

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

我们可以使用imap

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

或使用lst

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

-检查 OP 的输出

identical(out, out2)
#[1] TRUE