问等价于lapply(a，函数(X) x[,1])
EN

Stack Overflow用户

提问于 2017-05-23 12:50:12

回答 1查看 67关注 0票数 4

是否有相当于这段代码的词条？

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

我想填一下？

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

回答已采纳

发布于 2017-05-23 12:51:16

我们需要使用,来模拟行、列索引。在这里，我们希望得到列和该列中的所有行。因此，我们可以将其保留为空白(, ,)

lapply(a, `[`, , 1)

假设，如果我们想要第一行。这里，[表示提取操作符。在逗号之后，我们从行/列索引开始。在下面的例子中，我们将提取第一行，因此，它应该是1，然后是一个,，它意味着获取该行的所有列值

lapply(a, `[`, 1,)

或用于单个列的matrix

lapply(a, c)

票数 6

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/44135361

复制

相似问题

问等价于lapply(a，函数(X) x[,1])EN