删除列表中多个数据帧的特定行

Question

假设我有这样一个列表，其中包括 3 个名为 1、3 和 4 的数据框：

        1                   3           4  
1   A   c(2, 1, 3, 1, 2)    c(1, 1, 2)  c(1, 1)
2   B   c(1, 1, 1, 3, 2)    c(2, 1, 2)  c(2, 1)

数据框具有所有相同的列（A 和 B），但行数不同，如您所见。如何删除值 < 的行B 列中的 2 对于列表中的所有数据框？

我尝试 lapply 与任何：

list <- lapply(list, function(x) {x <- any(x[,c(2)] < 2);x})

Answer 1

明智地使用 lapply() 和简单的子集设置与任何方法一样好。在 l 中使用您的数据：

l <- list("1" = data.frame(A = c(2, 1, 3, 1, 2), B = c(1, 1, 1, 3, 2)),
          "3" = data.frame(A = c(1,1,2), B = c(2,1,2)),
          "4" = data.frame(A = c(1,1), B = c(2,1)))

这可以实现您想要的功能

lapply(l, function(x) x[x$B >= 2,])

：

> lapply(l, function(x) x[x$B >= 2,])
明智地使用 lapply() 和简单的子集设置与任何方法一样好。在 l 中使用您的数据：
l <- list("1" = data.frame(A = c(2, 1, 3, 1, 2), B = c(1, 1, 1, 3, 2)),
          "3" = data.frame(A = c(1,1,2), B = c(2,1,2)),
          "4" = data.frame(A = c(1,1), B = c(2,1)))

这可以实现您想要的功能
lapply(l, function(x) x[x$B >= 2,])

：
1`
  A B
4 1 3
5 2 2

明智地使用 lapply() 和简单的子集设置与任何方法一样好。在 l 中使用您的数据：
l <- list("1" = data.frame(A = c(2, 1, 3, 1, 2), B = c(1, 1, 1, 3, 2)),
          "3" = data.frame(A = c(1,1,2), B = c(2,1,2)),
          "4" = data.frame(A = c(1,1), B = c(2,1)))

这可以实现您想要的功能
lapply(l, function(x) x[x$B >= 2,])

：
3`
  A B
1 1 2
3 2 2

明智地使用 lapply() 和简单的子集设置与任何方法一样好。在 l 中使用您的数据：
l <- list("1" = data.frame(A = c(2, 1, 3, 1, 2), B = c(1, 1, 1, 3, 2)),
          "3" = data.frame(A = c(1,1,2), B = c(2,1,2)),
          "4" = data.frame(A = c(1,1), B = c(2,1)))

这可以实现您想要的功能
lapply(l, function(x) x[x$B >= 2,])

：
4`
  A B
1 1 2

Answer 2

像这样的事情怎么样：

lst <- lapply(lst, function(x) {subset(x, B >= 2)})