R：查找包含多個字符串匹配項的向量元素

Question

我想找到一個向量（字符串）的元素，其中包含另一個向量指定的所有字符串。 例如，

x <- c("xxxabcxdxexfxx", "xxaxbcdexx", "xaxxxbc")
a <- c("a", "b", "c", "d", "e", "f")

我想找到的元素x包含在所有的字符串a ，因此要獲得

[1] TRUE FALSE FALSE

Answer 1

sapply(x, function(string) all(Vectorize(grepl)(pattern = a, x = string)))
#xxxabcxdxexfxx     xxaxbcdexx        xaxxxbc 
#          TRUE          FALSE          FALSE

要么

rowSums(sapply(a, function(P) grepl(P, x))) == length(a)
#[1]  TRUE FALSE FALSE

要么

grepl(pattern = paste(sort(a), collapse = ""),
      x = sapply(strsplit(x, ""),
                 function(x) paste(sort(x), collapse = "")))
#[1]  TRUE FALSE FALSE

要么

lengths(sapply(strsplit(x,""), setdiff, x = a)) == 0
#[1]  TRUE FALSE FALSE

Answer 2

另一個：

sapply(strsplit(x,""), function(y) all(a %in% y))

Answer 3

使用gregexpr ：

lengths(gregexpr(pattern = paste(a, collapse = "|"), text = x)) == length(a)
# [1]  TRUE FALSE FALSE