我们可以使用 lapply 和 tail :

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

正如评论中指出的那样，

vapply 是获取数字矢量而不是一个元素列表的好选择:

As pointed out in the comments, to obtain a numeric vector instead of a one-element list, vapply is a good choice:

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