从列表中向量中的最后一个元素创建一个列表

Question

假设我有一个向量list （它们都不为空；它们的长度可能不同）。

如何从向量的两端（例如）生成元素列表？

例如，如果我的列表中包含3个元素， 1:10 ， 2:9和c(3,5)则输出列表应该包含列表10 ， 9和5 。

在更简单的情况下，所有向量的长度都相同（例如5），我尝试首先使用as.data.frame将列表data.frame 。 问题是我的列表很大 （大约一百万个向量），并且as.data.frame需要很as.data.frame 。 我考虑过优化，也许使用了这个答案 ，但是无论如何，我认为它会导致错误的数据结构-而不是创建5个列，每个列具有一百万个值，而是创建一个具有一百万列的data.frame 。

所以我可能应该去别的地方看看。 有任何想法吗？

Answer 1

如果x是原子向量的列表，则应用：

 sapply(x, function(elem) elem[length(elem)])

Answer 2

使用tail ：

> sapply(list(1:10,2:9,c(3,5)),tail,1)
[1] 10  9  5

@Bach关于速度是正确的。 虽然tail很简洁，但速度很慢：

set.seed(1)
a <- list()
for(i in 1:1e3)
    a[[i]] <- sample(1:100, sample(1:100), TRUE)

library("microbenchmark")
microbenchmark(sapply(a,tail,1), sapply(a, function(elem) elem[length(elem)]))
# Unit: milliseconds
#                                          expr       min        lq    median        uq       max neval
#                            sapply(a, tail, 1) 22.998933 24.790584 26.103241 27.797130 79.489209   100
#  sapply(a, function(elem) elem[length(elem)])  1.546477  1.787224  1.951572  2.137856  6.106236   100