r - 如何忽略lapply中的NA？

set.seed(123)
B = matrix(  c(5, 3, 3, 1, 5, 1,3,1,NA,NA),   nrow=5,  ncol=2)
m1<-matrix(nrow=5,ncol=2,data=runif(10))
m2<-matrix(nrow=5,ncol=2,data=runif(10))
m2[1,2]=NA; ml <- list(m1, m2)
ind <- sapply(unique(c(B)), function(x) which(B == x, arr.ind = TRUE))
re <- lapply(ind, function(x) lapply(ml, function(y) y[x]))
res=lapply(re, function(x) c(t(do.call(cbind, x))))

但是我不知道哪个对应于哪个。例如:res[[1]]代表5, 3, or 1 in B？有没有办法用B的对应类(数字)的t来命名输出列？

最佳答案

我们可以使用complete.cases

 lapply(re, function(x) {
         v1 <- c(t(do.call(cbind, x)))
         v1[complete.cases(v1)]})

关于r - 如何忽略lapply中的NA？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/34393293/