Как получить последний подэлемент каждого элемента списка в R

Question

Я пытаюсь получить значение последнего элемента каждого подэлемента списка из R. Элементы списка представляют собой векторы разной длины, поэтому индекс последнего подэлемента не является постоянным между элементами списка. Я искал SO, но нашел информацию только для тех, кто хочет получить, например, второй элемент подэлемента каждого элемента. Это не полезно для меня, поскольку элементы списка имеют непостоянную длину.

Меня интересуют только решения, которые не связаны с использованием цикла for, поскольку мой список имеет длину> 1 миллион.

Спасибо!

Answer 1

Вы можете использовать lapply и tail:

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

Как отметил Hadd Е. Nuff, чтобы получить числовой вектор вместо списка с одним элементом, vapply является хорошим выбором:

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