匹配嵌套列表中的所有元素（与位置无关），并返回带有索引的匹配项

Question

我有从[]创建的两个列表x和y>

x1 = list(c(1,2,3,4))
x2 = list(c(seq(1, 10, by = 2)))
x<- list(x1,x2)

x
[[1]]
[[1]][[1]]
[1] 1 2 3 4


[[2]]
[[2]][[1]]
[1] 1 3 5 7 9
和y，

y1 = list(c(5, 6, 7, 8))
y2 = list(c(9, 7, 5, 3, 1))
y <- list(y1, y2)

y
[[1]]
[[1]][[1]]
[1] 5 6 7 8


[[2]]
[[2]][[1]]
[1] 9 7 5 3 1
所以基本上，我想将x匹配到y，所以我应该只得到'1 3 5 7 9'实际上是一个匹配。我还需要索引。 

我已经尝试过，无论每个x [[]]与每个y [[]]的位置如何，我都希望匹配这些值。

Matches <- x[x %in% y]
IDX <- which(x %in% y)
这不起作用。...

我希望可以返回相同元素的匹配项，而不管每个列表的位置如何。这将是我需要的粗略想法...

  matches

        [1] False

        [1] 1 3 5 7 9
先谢谢您，感谢所有帮助。

我有两个从x1 = list（c（1,2,3,4））创建的列表x和y x2 = list（c（seq（1，10，by = 2）））x

Answer 1

这是您可以做的：