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) 

と仮定空白（, ,）としてそれを維持することができます。ここでは[は抽出演算子を示します。コンマの後に、行/列の索引付けから始めます。以下の場合には、我々は最初の行を抽出しているので、その行

lapply(a, `[`, 1,) 

---

または単一列matrixのすべての列の値を取得する手段,続い1をなければなりません

lapply(a, c)