我想通过以下方式用逻辑矩阵对数字向量进行子集化:给定向量y
y <- c(4,8,1,3,5,7)
和逻辑矩阵lmat
lmat <- t(matrix(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,
TRUE, FALSE, FALSE, FALSE, FALSE, FALSE,
FALSE, TRUE, FALSE, FALSE, FALSE, FALSE,
TRUE, TRUE, FALSE, FALSE, FALSE, FALSE,
FALSE, FALSE, TRUE, FALSE, FALSE, FALSE,
TRUE, FALSE, TRUE, FALSE, FALSE, FALSE), ncol = 6))
看起来像这样
> lmat
[,1] [,2] [,3] [,4] [,5] [,6]
[1,] FALSE FALSE FALSE FALSE FALSE FALSE
[2,] TRUE FALSE FALSE FALSE FALSE FALSE
[3,] FALSE TRUE FALSE FALSE FALSE FALSE
[4,] TRUE TRUE FALSE FALSE FALSE FALSE
[5,] FALSE FALSE TRUE FALSE FALSE FALSE
[6,] TRUE FALSE TRUE FALSE FALSE FALSE
我想根据lmat的行应用一些将y子集化的函数x()并返回一个列表。因此x(y)将返回:
[[1]]
numeric(0)
[[2]]
[1] 4 9
[[3]]
[1] 8
[[4]]
[1] 4 8 9
[[5]]
[1] 1
[[6]]
[1] 4 1 9
我仍在学习apply函数,尽管可以尝试使用其中一个函数获得所需的结果,但我怀疑这可能适用于apply或sapply。我基本上想要
y[lmat[1,]]
y[lmat[2,]]
y[lmat[3,]]
等等....
但是lmat很大,我认为有一种方法可以避免循环。谢谢。
lapply(1:nrow(lmat), function(i) y[lmat[i,]])
#OR
apply(lmat, 1, function(x) y[x])
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句