Comment sous-ensemble à partir d'une liste dans la R

J'ai une assez simple tâche, mais n'ai pas trouvé une bonne solution.

> mylist  
[[1]]
 [1]  1  2  3  4  5  6  7  8  9 10

[[2]]
 [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z"

[[3]]
[1] 25 26 27 28 29 30 31 32

y <- c(3,5,9)

J'aimerais extraire de maliste les sous-éléments de 3,5 et 9 de chaque composant dans la liste.
J'ai essayé, sapply[mylist,"[[",y] mais pas de chance!, et d'autres comme vapply, lapply, etc.. Merci d'avance pour votre aide

Mauricio Ortiz

InformationsquelleAutor user1257894 | 2012-03-08
  1. 30

    Vous pouvez utiliser sapply(mylist, "[", y):

    mylist <- list(1:5, 6:10, 11:15)
sapply(mylist, "[", c(2,3))
    InformationsquelleAutor sgibb
  2. 22

    Essayez d'utiliser [ au lieu de [[ (et selon ce que vous êtes après de la lumière voulez vraiment lapply).

    De ?'[[':

    La distinction la plus importante entre [, [[$et est que le [ peut
    sélectionner plus d'un élément alors que les deux autres de choisir un seul
    élément.

    InformationsquelleAutor joran
  3. 7

    À l'aide de lapply:

    # create mylist
list1<-1:10
list2<-letters[1:26]
list3<-25:32
mylist<-list(list1,list2,list3)

# select 3,5,9th element from each list
list.2 <- lapply(mylist, function(x) {x[c(3,5,9)]})
    InformationsquelleAutor USER_1
  4. 3

    purrr fournit une autre solution pour la résolution de ces types de la liste des manipulations à l'intérieur de la tidyverse

    library(purrr)
library(dplyr)

desired_values <- c(1,3)

mylist <- list(1:5, letters[1:6], 11:15) %>% 
purrr::map(`[`,desired_values) 

mylist
    InformationsquelleAutor DanO
  5. 0

    Je ne pense pas que sgibb réponse que donne ce que vous voulez. Je suggère de faire une nouvelle fonction:

    subsetList <- function(myList, elementNames) {
    lapply(elementNames, FUN=function(x) myList[[x]])
}

    Alors vous pouvez l'utiliser comme ceci:

    x <- list(a=3, b="hello", c=4.5, d="world")
subsetList(x, c("d", "a"))
subsetList(x, c(4, 1))

    Ces deux donner 

    [[1]]
[1] "world"

[[2]]
[1] 3

    qui est ce que vous voulez, je pense.

    InformationsquelleAutor toby544
  6. -1

    Il y a de meilleures façons de le faire, mais voici une solution rapide.

    # your values
list1<-1:10
list2<-letters[1:26]
list3<-25:32

# put 'em together in a list
mylist<-list(list1,list2,list3)

# function
foo<-function(x){x[c(3,5,9)]}

# apply function to each of the element in the list
foo(mylist[[1]])
foo(mylist[[2]])
foo(mylist[[3]])

# check the output

> foo(mylist[[1]])
[1] 3 5 9
> foo(mylist[[2]])
[1] "c" "e" "i"
> foo(mylist[[3]])
[1] 27 29 NA
    • Veuillez utiliser lapply, pour l'instant, cette solution n'est pas adaptée à tous quand mylist devient plus grande.
    InformationsquelleAutor user1234357