Задать имена вновь созданного вложенного списка с помощью purrr

Question

Я пытаюсь создать именованный вложенный список, что-то вроде:

list(
  list(id = 1, name = "Abbie"), 
  list(id = 2, name = "Benjamin")
  # ... more list statements here
)

Я создал структуру вложенного списка, используя purrr::map2:

c("Abbie", "Benjamin") %>% 
  map2(seq(.), ., list) 

Однако как мне тогда назвать список с purrr?

Примечание: из этого вопроса я экспериментировал со следующим, что не делает то, что я ищу:

c("Abbie", "Benjamin") %>% 
  map2(seq(.), ., list) %>% 
  set_names(paste0("ID", seq(.)))

Answer 1

Вот еще один способ создания вложенного списка

library(purrr)
c("Abbie", "Benjamin") %>% 
     list(id = seq_along(.), name =.) %>% 
     transpose
#[[1]]
#[[1]]$id
#[1] 1

#[[1]]$name
#[1] "Abbie"


#[[2]]
#[[2]]$id
#[1] 2

#[[2]]$name
#[1] "Benjamin"

Answer 2

Я бы сделал это так, используя purr::imap:

library(purr)
c("Abbie", "Benjamin") %>% imap(~list(id=.y,name=.x))
# [[1]]
# [[1]]$id
# [1] 1
# 
# [[1]]$name
# [1] "Abbie"
# 
# 
# [[2]]
# [[2]]$id
# [1] 2
# 
# [[2]]$name
# [1] "Benjamin"

Answer 3

Используйте еще один map(), потому что имена, которые вы хотите установить, являются внутренними списками. Если нет, set_names() установит имена внешних списков.

c("Abbie", "Benjamin") %>% 
  map2(seq(.), ., list) %>%
  map(~ set_names(., c("ID", "Name")))

[[1]]
[[1]]$ID
[1] 1

[[1]]$Name
[1] "Abbie"


[[2]]
[[2]]$ID
[1] 2

[[2]]$Name
[1] "Benjamin"