您可以使用lapply和tail:

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

正如Hadd E. Nuff所指出的那样，要获得数值向量而不是一个元素列表，vapply是一个不错的选择:

As pointed out by Hadd E. Nuff, 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))