相当于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)