从嵌套列表中更优雅地提取命名 IntegerList 的任何方法？

Question

我在 IntegerList 中有位置索引列表，我打算根据给定的阈值过滤它们，并且效果很好。但是，我想为每个 IntegerList 提取一个特定的过滤集以供进一步使用。我知道 myList 是嵌套列表，数据是基于真实数据集模拟的。有什么方法可以轻松优雅地检索想要的 IntegerList 吗？我怎样才能让它发生这种提取？

要运行 mini example，需要以下库：

library(IRanges)
library(S4Vectors)

迷你示例：

myList <- list(f1=IntegerList(1,2,3,4,1,1,1,integer(0),1,2,4),
               f2=IntegerList(1,5,integer(0),integer(0),2,3,4,6,1,5,6),
               f3=IntegerList(1,4,6,7,2,3,3,7,2,5,7))

len <- Reduce('+', lapply(myList, lengths))
keepMe <- len >= length(myList)

我打算按如下方式过滤它们：

res.filt <- lapply(myList, function(elm) {
  ans <- list(keep=elm[keepMe], droped=elm[!keepMe])
  ans
})

我的粗略输出：

Keep.list <- list(f1.kp=res.filt$f1$keep, f2.kp=res.filt$f2$keep, f3.kp=res.filt$f3$keep)
Drop.list <- list(f1.dp=res.filt$f1$droped, f2.dp=res.filt$f2$droped, f3.dp=res.filt$f3$droped)

根据我的粗略输出，我怎样才能得到更优雅的输出？有什么有效的方法来实现我的输出？谁能指出我该怎么做？或任何建议如何获得我的预期输出？提前致谢

Answer 1

您关于过滤矢量列表的想法 process/flow 是合乎逻辑的并且非常理想，但是如果您使用 purrr:

可以稍微收紧它

library(purrr)

map(myList, lengths) %>% 
  reduce(`+`) %>% 
  map_lgl(`>=`, length(myList)) -> keep_me

keep_list <- map(myList, ~.[keep_me])
drop_list <- map(myList, ~.[!keep_me])

从嵌套列表中更优雅地提取命名 IntegerList 的任何方法？

Any way to extract out named IntegerList more elegantly from nested list?

r

list

extraction

iranges