您可以使用sapply(mylist, "[", y)：

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

尝试使用[而不是[[（取决于你想要什么，你实际上想要lapply）。
从?'[['开始：
[、[[和$之间最重要的区别是[可以选择多个元素，而其他两个选择单个元素。

使用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)]})

purrr提供了另一种解决tidyverse中这类列表操作的方案

library(purrr)
library(dplyr)

desired_values <- c(1,3)

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

mylist

一个简单的方法子集列表中重复命名的元素，类似于这里的其他答案。
（* 这样下次我查这个问题的时候就能找到了 *）
例如，从重复列表中子集化"b"元素，其中每个元素包括"a"和"b"子元素：

mylist <- list(
  list(
    "a" = runif(3),
    "b" = runif(1)
  ),
  list(
    "a" = runif(3),
    "b" = runif(1)
  )
)

mylist
#> [[1]]
#> [[1]]$a
#> [1] 0.7547490 0.6528348 0.2339767
#> 
#> [[1]]$b
#> [1] 0.8815888
#> 
#> 
#> [[2]]
#> [[2]]$a
#> [1] 0.51352909 0.09637425 0.99291650
#> 
#> [[2]]$b
#> [1] 0.8407162

blist <- lapply(
  X = mylist,
  FUN = function(x){x[["b"]]}
)

blist
#> [[1]]
#> [1] 0.8815888
#> 
#> [[2]]
#> [1] 0.8407162

由reprex package（v0.3.0）于2019年11月6日创建

我不认为sgibb的答案给出了你想要的答案，我建议创建一个新函数：

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

然后，您可以像这样使用它：

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

这两个都给出了

[[1]]
[1] "world"

[[2]]
[1] 3

我想这也是你想要的。

有更好的方法，但这里有一个快速的解决方案。

# 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