#构建个嵌套list
(x = list(list(1,2), list(3,4), list(5,6)))
[[1]]
[[1]][[1]]
[1] 1
[[1]][[2]]
[1] 2
[[2]]
[[2]][[1]]
[1] 3
[[2]][[2]]
[1] 4
[[3]]
[[3]][[1]]
[1] 5
[[3]][[2]]
[1] 6
#方法一,返回的是一个向量
sapply(x, `[[`, 1)
或
unlist(map(x, 1))
或
map_dbl(x, 1)
[1] 1 3 5
#方法二,返回的是一个list
lapply(x, `[[`, 1)
或
map(x, 1)
[[1]]
[1] 1
[[2]]
[1] 3
[[3]]
[1] 5