我正在尝试获取列表的每个子元素的 last 元素的值。列表的元素是不同长度的向量，所以最后一个子元素的索引在列表的元素之间不是恒定的。
我已经搜索过 SO，但只找到了那些希望获得的信息，for example, the second sub-element of every element。这对我没有帮助，因为列表的元素长度不定。
我只对不涉及使用 for 循环的解决方案感兴趣，因为我的列表长度 > 100 万。
示例数据：
x <- list(a = 1:5, b = 1:10, d = 9:11)
预期输出是一个列表：list(5, 10, 11)
【问题讨论】：
lapply(mtcars, function(x){x[length(x)]})?这在一定程度上取决于列表的结构。
mapply('[[', x, lengths(x))
我们可以使用lapply 和tail：
x <- list(a = 1:5, b = 1:10, d = 9:11)
last_elems <- lapply(x, tail, n = 1L)
正如 cmets 中所指出的，要获得数字向量而不是单元素列表，vapply 是一个不错的选择：
last_elems <- vapply(x, tail, n = 1L, FUN.VALUE = numeric(1))
【讨论】：
vapply(x, tail, 1L, 1L) 快速获得原子向量结果（或sapply()）。
sapply(x, "[", sapply(x, length)) 之类的东西（不幸的是，它返回了一个矩阵，但它越来越接近了）
使用 purrr::map2:
library(purrr)
x <- list(a = 1:5, b = 1:10, d = 9:11)
map2(x, lengths(x), pluck)
# $a
# [1] 5
#
# $b
# [1] 10
#
# $d
# [1] 11
【讨论】：