循环遍历列表并找到R中每个成员的第二个元素

Question

我想浏览一个列表并获取每个列表成员的第二个元素。

有没有比以下更好（更高效/优雅/两者）的方式？

lapply(ee,function(x){return(x[2])})   

Answer 1

您可以使用子集化函数[作为lapply

的参数

ee <- list(x=cars[,1], y=cars[,2])
lapply(ee, `[`, 2)
$x
[1] 4

$y
[1] 10