在多个嵌套列表中计数 R

Question

假设我有一个长度为 2 的列表，其中是另一个长度为 2 的列表，其中有一个编码为 0、1 或 2 的数字数据框（请耐心等待！）：

set.seed(42)
l1<-data.frame(sample(0:2, 5, replace = TRUE))
l2<-data.frame(sample(0:2, 5, replace = TRUE))
l<-list(l1,l2)
ll<-list(list(l,l), list(l,l))

我需要计算每个数据框中出现 1 或 2 的次数。 然后，我需要对上述级别的所有计数求和这些计数。

所以对于ll[[1]][[1]][[1]]计数为 1，对于ll[[1]][[1]][[2]]计数为 4。在这两个中数据帧总和为 5。

为了对我正在处理的真实数据提供更简单的英语描述：顶层是物种数量（在本例中为 2 个物种），下面的级别是记录数据的年份（在本例中，数据是在 2 年不同的年份收集的）。 在其下方是记录数据的位置。 我需要知道，在几年内，有多少次 1 或 2 出现在所有位置（在那一年内）。

也许有更好的方法来描述这一点，但到目前为止我还没有想到。 任何帮助，将不胜感激。

Answer 1

我们可以使用purrr函数。

library(purrr)
map(ll, function(x) transpose(x) %>% map(~sum(unlist(.x) != 0)))

#[[1]]
#[[1]][[1]]
#[1] 2

#[[1]][[2]]
#[1] 8


#[[2]]
#[[2]][[1]]
#[1] 2

#[[2]][[2]]
#[1] 8

Answer 2

有点嵌套，但解决方案应该有效：

lapply(ll, 
  function(l) 
    lapply(l, 
      function(li) sum(unlist(li) %in% 1:2)))

# [[1]]
# [[1]][[1]]
# [1] 5
#
# [[1]][[2]]
# [1] 5
# 
# 
# [[2]]
# [[2]][[1]]
# [1] 5
# 
# [[2]][[2]]
# [1] 5