遍歷列表並找到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