R 中列表的子集元素

Question

>假设这是我的列表

a <- list(c(1,2,4))
a[[2]] <- c(2,10,3,2,7)
a[[3]] <- c(2, 2, 14, 5)

我如何子集此列表以排除所有 2。 如何获取以下内容：

[[1]]
[1] 1 4
[[2]]
[1] 10  3  7
[[3]]
[1] 14  5

我目前的解决方案：

for(j in seq(1, length(a))){
  a[[j]] <- a[[j]][a[[j]] != 2]
}

但是，这种方法感觉有点不自然。 我将如何使用应用程序系列中的函数执行相同的操作？

谢谢！

Answer 1

lapply(a, function(x) x[x != 2])
#[[1]]
#[1] 1 4
#
#[[2]]
#[1] 10  3  7
#
#[[3]]
#[1] 14  5

使用lapply可以将子集应用于列表中的每个向量。使用的子集是，x[x != 2] 。

Answer 2

或者通过循环使用lapply遍历list来使用setdiff

lapply(a, setdiff, 2)
#[[1]]
#[1] 1 4
#[[2]]
#[1] 10  3  7
#[[3]]
#[1] 14  5