按位置比较两个列表的元素以测试r

Question

（{Here和here类似的问题，但适用于python。）

我有两个长度相等的列表，每个列表包含字符向量。我想对列表进行逐个对比，以测试它们是否具有共同的元素。

list_1 <- list(c("a","b"), c("a","c"))
list_2 <- list(c("a","x"), c("p","q"))

> list_1
[[1]]
[1] "a" "b"

[[2]]
[1] "a" "c"

> list_2
[[1]]
[1] "a" "x"

[[2]]
[1] "p" "q"

这可能是一个lapply问题，但我不确定如何解决。这是行不通的尝试：

> lapply(list_1, function(x){any(x %in% list_2)})
[[1]]
[1] FALSE

[[2]]
[1] FALSE

预期的解决方案是：

[[1]]
[1] TRUE

[[2]]
[1] FALSE

帮助？

Answer 1

您想要?mapply，它允许您在多个（“ m”）列表中以“并行”方式迭代或应用匿名函数。

mapply(function(x, y) {any(x %in% y)}, list_1, list_2)

如果您在anon函数中添加了另一个参数，则可以将其扩展到2个以上的列表。