相當於lapply（a，function（x）x [，1]）

Question

是否有與此代碼等價的terser？

a <- list(matrix(1,3), matrix(2,3)) 
lapply(a, function(x) x[,1]) 

我要填寫的是???

lapply(a, `[`, ???) 

Answer 1

我們需要把,模仿行列索引。在這裏，我們想要獲取該列和該列中的所有行。因此，我們可以把它作爲空白（, ,）

lapply(a, `[`, , 1) 

假設，如果我們想在第一行。這裏[表示提取操作符。在逗號後面，我們從行/列索引開始。在下面的例子中，我們提取的第一行，因此，它應該是1，隨後,這意味着把所有的列值的行

lapply(a, `[`, 1,) 

---

或單個列matrix

lapply(a, c)