按位置比较两个列表的元素以测试 r 中的常见字符串

Question

（ 这里和这里类似的问题，但对于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 个以上的列表。