r - 将一个列表子集到另一个列表上

Question

我一直在查看mapply文档，但找不到足够接近的示例来帮助我入门。

我有清单foo和bar：

set.seed(123)
f   <- data.frame(y=1:10,x=sample(LETTERS,10))
foo <- list(f,f)
b   <- data.frame(x=c("J","U","A"))
ba  <- data.frame(x=c("J","W"))
bar <- list(b,ba)

我可以使用以下子f集b：

result <- f[f$x %in% b$x ,]

我想做这个子集，但对于整个列表foo，bar即on和on等的foo[[1]]子集......foo[[1]]["x"]bar[[1]]foo[[2]]foo[[2]]["x"]bar[[2]]

结果将是：

>foo
[[1]]
    y x
3   3 J
4   4 U
6   6 A

[[2]]
    y x
3   3 J
5   5 W

Answer 1

像这样……？

mapply(merge,foo,bar,SIMPLIFY = FALSE)
[[1]]
  x y
1 A 6
2 J 3
3 U 4

[[2]]
  x y
1 J 3
2 W 5