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

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)

我可以使用b 子集f：

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

我想做这个子集，但对于整个列表 foo 和 bar 即子集 foo[[1]] by foo[[1]]["x"] on bar[[1]] 和 foo[[2]] by foo[[2]]["x"] on 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