Início / coding / Perguntas / 79562622
Accepted
Phoebe
Asked: 2025-04-09 00:45:31 +0800 CST

Como deslistar uma lista de listas e fornecer duas saídas em R

  • 772

Eu tenho uma lista de listas chamada mylist. No exemplo a seguir, mylist tem duas listas, cada uma contendo outras duas listas de números aleatórios.

mylist <- list()
list1 <- rnorm(100)
list2 <- rnorm(100)
list3 <- rnorm(100)
list4 <- rnorm(100)

mylist[[1]] <- list("list1" = list1, "list2" = list2)
mylist[[2]] <- list("list1" = list3, "list2" = list4)

Ao imprimir o mylist, ele deve nos dar algo como

[[1]]
[[1]]$list1
  [1]  0.0382233645  0.2416676908  1.1910173996  0.7833025597 -0.7144370041
  [6]  1.9762077872  0.9438593806  0.1590264664 -0.5323112247  1.2820246358...
[[1]]$list2
  [1] -0.084982839 -0.462448106  0.771458598  1.354049503 -1.616381590 -0.368789648
  [7] -0.678521566 -0.340799431 -0.441370037 -0.212117105 -0.921661840  0.893550382...
[[2]]
[[2]]$list1
  [1]  0.367971534  0.028976364  1.391761655 -0.033661646  1.196138270 -1.645738949
  [7]  0.086037770  0.530143788  0.639389906  2.193683933 -1.427285285  0.430282258...
[[2]]$list2
  [1]  0.235027959  2.110340896 -0.951831561 -1.510063739 -0.007402732 -0.575736079
  [7] -0.363731268  1.232404358 -0.848716435  1.217101680 -0.014577878  0.440142686...

Quero remover a listagem de mylist para que os resultados finais (res) produzam dois elementos. O primeiro elemento combinará todos os elementos disponíveis da lista1 e o segundo agregará todos os elementos disponíveis da lista2. Os resultados finais devem ser semelhantes a

res$list1
[1]  0.0382233645  0.2416676908  1.1910173996  0.7833025597 -0.7144370041
[6]  1.9762077872  0.9438593806  0.1590264664 -0.5323112247  1.2820246358...
[101]  0.367971534  0.028976364  1.391761655 -0.033661646  1.196138270 -1.645738949
[107]  0.086037770  0.530143788  0.639389906  2.193683933 -1.427285285  0.430282258...

res$list2
[1]  0.367971534  0.028976364  1.391761655 -0.033661646  1.196138270 -1.645738949
[7]  0.086037770  0.530143788  0.639389906  2.193683933 -1.427285285  0.430282258...
[101]  0.235027959  2.110340896 -0.951831561 -1.510063739 -0.007402732 -0.575736079
[107] -0.363731268  1.232404358 -0.848716435  1.217101680 -0.014577878  0.440142686...

Qual é a maneira correta de fazer isso em R? Obrigado!

4 respostas

  1. Best Answer

    Podemos usar Mappara combinar as sublistas de cada elemento da lista de nível superior.

    Dados reproduzíveis:

    set.seed(42)
mylist <- list()
list1 <- rnorm(5)
list2 <- rnorm(5)
list3 <- rnorm(5)
list4 <- rnorm(5)
mylist[[1]] <- list("list1" = list1, "list2" = list2)
mylist[[2]] <- list("list1" = list3, "list2" = list4)  
mylist
# [[1]]
# [[1]]$list1
# [1]  1.3709584 -0.5646982  0.3631284  0.6328626  0.4042683
# [[1]]$list2
# [1] -0.10612452  1.51152200 -0.09465904  2.01842371 -0.06271410
# [[2]]
# [[2]]$list1
# [1]  1.3048697  2.2866454 -1.3888607 -0.2787888 -0.1333213
# [[2]]$list2
# [1]  0.6359504 -0.2842529 -2.6564554 -2.4404669  1.3201133

    do.call(Map, args = c(list(f = c), mylist))
# $list1
#  [1]  1.3709584 -0.5646982  0.3631284  0.6328626  0.4042683  1.3048697  2.2866454 -1.3888607 -0.2787888 -0.1333213
# $list2
#  [1] -0.10612452  1.51152200 -0.09465904  2.01842371 -0.06271410  0.63595040 -0.28425292 -2.65645542 -2.44046693  1.32011335

    Se for sempre list1e list2(um comprimento pré-conhecido dentro de mylist), então podemos dispensá-lo do.calle usar Mapdiretamente:

    Map(c, mylist[[1]], mylist[[2]])

    O (único?) benefício de usar do.callé que se mylistfor de comprimento desconhecido ou longo e você não quiser ter que digitar tudo de mylist[[1]], mylist[[2]], ..., mylist[[n]](o que funcionaria), então uma expressão simples cuida de tudo para você.

    • 6

  2. Ao usar unlist, você pode especificar recursive = FALSEe então aplicar unstack+stack

    unclass(unstack(stack(unlist(mylist,recursive = FALSE))))

    ou

    with(stack(unlist(mylist, recursive = FALSE)), split(values, ind))

    então você deve ser capaz de atingir o resultado desejado

    • 4

  3. Algumas opções -

    1. Use purrr::transposee unlistcada lista
    purrr::transpose(mylist) |> lapply(unlist)
    1. Base pura R - combina nomes semelhantes em uma lista.
    nms <- names(mylist[[1]])

res <- lapply(nms, function(nm) {
  do.call(c, lapply(mylist, `[[`, nm))
})

names(res) <- nms
    • 3

  4. Uma alternativa pode ser usar list.mapo pacote rlist

    set.seed(123)
mylist <- list()
list1 <- rnorm(5)
list2 <- rnorm(5)
list3 <- rnorm(5)
list4 <- rnorm(5)

mylist[[1]] <- list("list1" = list1, "list2" = list2)
mylist[[2]] <- list("list1" = list3, "list2" = list4)  

mylist

#install.packages("rlist")
library(rlist)

list(
  list1 = unlist(list.map(mylist, list1)),
  list2 = unlist(list.map(mylist, list2))
  )
    • 2

relate perguntas