访问R中列表中嵌套的向量的倒数第二个元素

Question

* Similar questions存在，但不回答我的具体问题。

在嵌套列表中，访问每个向量的倒数第二个元素的优雅方式是什么。请按以下列表：

l <- list(c("a","b","c"),c("c","d","e","f"))

如何生成包含列表l中每个向量的倒数第二个元素的新列表（或向量）？输出应如下所示：

[[1]]
[1] "b"

[[2]]
[1] "e"

我通过lapply(l,dplyr::last)访问每个向量的最后一个元素，但不知道如何选择倒数第二个元素。非常感谢。

Answer 1

试试这个：

l <- list(c("a","b","c"),c("c","d","e","f"))
lapply(l, function(x) x[length(x) -1])
#> [[1]]
#> [1] "b"
#> 
#> [[2]]
#> [1] "e"