列表中有多少NA或NaN？

Question

假设我有一个清单：

set.seed(123)
n <- 4
lis <- list(
 m1 = matrix(nrow=n,ncol=n,data=sample(c(NA, 1:10), n*n, TRUE)), 
 m2 = matrix(nrow=n,ncol=n,data=sample(c(NA, 1:10), n*n, TRUE))
  )

我想知道我们在此列表中有多少NA（NaN）？

Answer 1

这可能更简单：

sum(is.na(unlist(lis)))

Answer 2

sum(sapply(lis, function(i) sum(is.na(i))))
[1] 2