List 在R中的列表上应用谓词

给定R中的值列表，通过给定的谓词函数过滤列表中的值的好方法是什么？

不完全清楚R中是否有适当的列表对象，或者其他类型的对象，如data.frame或vector。假设您有一个真正的列表对象，我们可以组合

lappy

和

subset

来做您想做的事情。如果没有列表，那么就不需要

lappy

set.seed(1)
#Fake data
dat <- list(a = data.frame(x = sample(1:10, 20, TRUE))
  , b = data.frame(x = sample(1:10, 20, TRUE)))

#Apply the subset function over the list
lapply(dat, subset, x < 3)
$a
   x
10 1
12 2

$b
   x
4  2
7  1
14 2
18 2

#Example two
lapply(dat, subset, x %in% c(1,7,9))
$a
   x
6  9
8  7
9  7
10 1
13 7

$b
   x
3  7
7  1
9  9
15 9
16 7

set.seed（1）
#假数据
dat