根据R中子列表的条件对列表进行子集？

Question

我希望获得一些关于如何使用 apply 系列函数来实现这一点的指示。我有一个列表 (listbin)，并希望使用列表的子列表 (x 和不合格) 中的内容进行子集化。

列表结构如下图：

[[1]]
[[1]]$x
[1] "2015-01-12"

[[1]]$rslts
factor(0)
Levels: PD

[[1]]$Ineligible
[1] 0

[[2]]$x
[[1]]$rslts
factor(0)
Levels: 0 1 A CR D E IS PD PR SD

[[1]]$Ineligible
[1] 0

...

出于我的目的，这段代码非常适用于我的 1、2 和 3 个子列表，但我正在寻找一种优雅的方式来在我的子列表中执行此操作。

'[['(listbin, 1)$x [which( '[['(listbin, 1)$Ineligible==0 ) ]
'[['(listbin, 2)$x [which( '[['(listbin, 2)$Ineligible==0 ) ]
'[['(listbin, 3)$x [which( '[['(listbin, 3)$Ineligible==0 ) ]

Answer 1

我们可以创建一个函数，然后遍历索引并提取组件

f1 <- function(lst1, i, nm1, nm2){
    '[['(lst1, i)[[nm1]] [which( '[['(lst1, i)[[nm2]]==0 ) ]  
   }

lapply(1:3, function(i) f1(listbin, i = i, 'x', 'Ineligible'))