子集data.frames列表和data.frames返回列表

Question

我意识到这个问题非常类似于this one (以及其他问题)，但是我似乎不能修改解决方案以适应我的问题。如果需要，请将其标记为副本或链接到现有的答案。下面是从上述问题中略为修改的一些示例数据：

a=c(1,2,3,4,5,6)
b=c(4,5,6,5,5,5)
c=c(3,4,5,6,7,8)
A=data.frame(a=a,b=b,c=c)
B=data.frame(a=c,b=b,c=a)
C=data.frame(a=b,b=c,c=a)
l <- list(A, B, C)

我想要生成一个数据列表，它是与条件匹配的原始数据文件(在l中)的子集。例如，我可能希望返回所有大于或等于4的值，用NA替换较低的值，这样我的新列表subsetl看起来如下(我不关心将NA放在数据格式中的正确位置)。

> subsetl
[[1]]
a b  c
1 NA 4 NA
2 NA 5  4
3 NA 6  5
4  4 5  6
5  5 5  7
6  6 5  8

[[2]]
a b  c
1 NA 4 NA
2  4 5 NA
3  5 6 NA
4  6 5  4
5  7 5  5
6  8 5  6

[[3]]
a  b  c
1 4 NA NA
2 5  4 NA
6  5 NA
4 5  6  4
5 5  7  5
6 5  8  6

我希望我的例子足够清楚，可以理解，但如果不是，请告诉我。使用lapply、sapply等无疑很简单，但在使用列表时，尤其是当数据文件列表是所需的结果时，我无法正确地使用语法。

Answer 1

这应该是为了你：

subsetl <- lapply(l,function(x) {
    x[x<4] <- NA
    return(x)
})

结果：

>subsetl
[[1]]
   a b  c
1 NA 4 NA
2 NA 5  4
3 NA 6  5
4  4 5  6
5  5 5  7
6  6 5  8

[[2]]
   a b  c
1 NA 4 NA
2  4 5 NA
3  5 6 NA
4  6 5  4
5  7 5  5
6  8 5  6

[[3]]
  a  b  c
1 4 NA NA
2 5  4 NA
3 6  5 NA
4 5  6  4
5 5  7  5
6 5  8  6