通过 grepl 搜索一个不匹配的字符串

Question

我想在另一个字符串中搜索子字符串。输出必须是合乎逻辑的，这就是为什么我假设grepl() 是最好的选择。

要求是，该函数必须检测模式完全匹配的两个字符串（字符串 2 和 3），并且至少允许一个不匹配项（字符串 1 和 3）
一个示例如下所示：

字符串 1：ABCDEFGHIJKL

字符串 2：ABDEFGHIJKL

字符串 3：ABDEFG

意味着当字符串 3 是搜索模式时，函数必须同时检测字符串 1 和字符串 2。

另一个选项是 Biostrings 包的 matchpattern() 函数。但是在这里，输出不是一个逻辑而是一个：

Formal class 'XStringViews' [package "Biostrings"] with 5 slots

将其转换为逻辑的选项也可以。

非常感谢

Answer 1

library(stringr)
stri <- c("ABCDEFG", "ABCDEFGHGT", "ABFCDE", "saffaf")


str_match <- function(pattern, st_c) {
      logic_f <- NULL
      for (i in seq_along(st_c)){
        var <- strsplit(st_c[i], "")[[1]]
        det <- str_detect(pattern, var)
        logic <- ifelse(TRUE %in% det, TRUE, FALSE)
        logic_f <- append(logic_f, logic)
      }
      return(logic_f)
}


str_match("ABD", stri)
## [1]  TRUE  TRUE  TRUE FALSE

    

Answer 2

纯粹是为了好玩，不确定是否适用于更长的字符串：

S1<-"ABCDEFGHIJKL"

S2<-"ABDEFGHIJKL"

S3<-"ABDEFG"

find_partial_matching_string<-function(string, pattern){
  
  require(stringr)
  
  a<-vector()
  b<-vector()
  
  for (i in 1:nchar(string)){
    
    x<-str_sub(string, i, i)
    a<-c(a,x)
  }
  
  for(j in  1:nchar(pattern)){
    
    y<-str_sub(pattern, j, j)
    b<-c(b,y)
  }
  
  z <- a %in% b
 
  if(table(z[1:length(b)])<=1){
    return(string)     
  }
}

> find_partial_matching_string(string = S1, pattern = S3)
[1] "ABCDEFGHIJKL"
> find_partial_matching_string(string = S2, pattern = S3)
[1] "ABDEFGHIJKL"