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