r - 检查列表的所有元素是否与向量完全匹配

Question

我有一个列表元素list_1 ，然后是一个向量vec_1 。 我希望能够确定是否在向量中找到了列表元素的所有元素。 它们需要完全匹配，如果未找到列表元素，则应打印该元素。 例如，如果我遍历list_1[1]它会返回TRUE但如果我遍历list_1[2]它返回foo和bars 。

list_1 <- list(x = c("apple", "toast"), y = c("foo", "bar", "bars"))
vec_1 <- c("pear", "apple", "toast", "x", "foos", "bar")

Answer 1

我们可以使用lapply ：

lapply(list_1, function(x) if(all(x %in% vec_1)) TRUE else setdiff(x, vec_1))

#$x
#[1] TRUE

#$y
#[1] "foo"  "bars"