R：按行内容的数据框子集列表？应用/应用

Question

我有一个数据框列表：

d1<-data.frame(a=rnorm(5), b=rep(2006, times=5), cc=c(1:5))
d2<-data.frame(a=rnorm(5), b=rep(2007, times=5), cc=c(1:5))
d3<-data.frame(a=rnorm(5), b=c(2005:2009), cc=c(1:5))   #data frame with only one 2007 value
d4<-data.frame(a=rnorm(5), b=rep(2007, times=5), cc=c(1:5))


my.ls<- list(d1, d2, d3,d4)

仅包含 b == 2006 的子集 data.frames

如何只选择/子集一个数据框 b == 2007？

我相信这很简单

my.ls[sapply(my.ls[[i]]$b) == 2007]

但我无法弄清楚... 如何访问数据框列表中的行？谢谢！

---

比较结果：

a1<-Filter(function(x) all(x$b==2007), my.ls)
a2<-my.ls[sapply(my.ls,  function(x) all(x$b==2007))]

> identical(a1, a2)
[1] TRUE

Answer 1

目前尚不清楚我们是否需要将data.frames 的list 与'b' 列中的any 2007 或all 的all 设置为2007。从示例中假设，它是all 2007，我们将 Filter 与匿名函数调用一起使用，并将 all 包裹在逻辑索引 (x$b ==2007) 周围，以获得单个 TRUE/FALSE 来子集 list 元素。

Filter(function(x) all(x$b==2007), my.ls)

---

或者使用sapply，我们沿着list元素循环，并使用相同的logical条件为每个list元素返回一个TRUE/FALSE。使用逻辑索引的vector 子集list。

my.ls[sapply(my.ls,  function(x) all(x$b==2007))]