我们可以使用lapply和tail：

x <- list(a = 1:5, b = 1:10, d = 9:11)
last_elems <- lapply(x, tail, n = 1L)

正如注解中所指出的，要获得一个数字向量而不是一个单元素列表，vapply是一个不错的选择：

last_elems <- vapply(x, tail, n = 1L, FUN.VALUE = numeric(1))

使用 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

你也可以使用purrr::map_chr沿着dplyr::last：

map_chr(x, last)

这在处理表格数据时特别方便

perfData %>% mutate(benchmark = map_chr(str_split(benchmark_name, "[.]"), last))

在本例中，我们提取了最后一个.之后的名称部分。使用map_int的数字也是如此，依此类推请参见https://purrr.tidyverse.org/reference/map.html

从data.table包中尝试last

> lapply(x, data.table::last)
$a
[1] 5

$b
[1] 10

$d
[1] 11