R:在列表中应用函数

Question

我有一个包含 2000 个组件数据框的大列表。以下只是一个例子:

set.seed(1234)
mydf1 <- data.frame(v = c(1:5), x = rnorm(5, 0.06, 0.01))
mydf2 <- data.frame(v = c(1:5), x = rnorm(5, 0.06, 0.01))
mydf3 <- data.frame(v = c(1:5), x = rnorm(5, 0.06, 0.01))
mylist <- list(mydf1, mydf2, mydf3)

mylist

 [[1]]
  v          x
1 1 0.03792934
2 2 0.05277429
3 3 0.06084441
4 4 0.02654302
5 5 0.05429125

[[2]]
  v          x
1 1 0.05506056
2 2 0.04425260
3 3 0.04453368
4 4 0.04435548
5 5 0.04109962

[[3]]
  v          x
1 1 0.04522807
2 2 0.04001614
3 3 0.04223746
4 4 0.05064459
5 5 0.05959494

我想按小于 < 0.05(在每个列表组件内)的 x 值对整个列表进行子集化，并创建一个新列表。

mylist1 <- mylist[ which ( x < 0.05),] 

不起作用....请帮忙。谢谢...

Answer 1

lapply(mylist, function(y) subset(y, x < 0.05))