4

我意识到这个问题与这个问题（除其他外）非常相似，但是我似乎无法修改解决方案以适应我的问题。如果需要，请标记为重复或指向现有答案的链接。以下是根据上述问题稍作修改的一些示例数据：

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匹配条件的原始数据帧（in）的子集。例如，我可能希望返回所有大于或等于 4 的值，并将较低的值替换为NA's，以便我的新列表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

我希望我的例子足够清楚，可以理解，但如果没有，请告诉我。这无疑是简单的 using或类似的方法lapply，sapply但是在使用列表时，尤其是当数据帧列表是所需的结果时，我无法正确使用语法。

4

1 回答 1

4

这应该为你做：

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
于 2013-07-30T11:51:31.843 回答