我有一个包含2000个组件数据框的大型列表。以下仅仅是一个例子:R:在列表中应用函数
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
我想通过x的值小于< 0.05(每个列表中的组件内)到子集此整个列表和创造一个新的列表。
mylist1 <- mylist[ which (x < 0.05),]
不工作....请帮助。谢谢...
见申请,sapply,lapply和tapply???学习它们,练习它们。你不会后悔的。 –