在另一个字符串中查找字符串的一部分

Question

如何在另一个字符串中查找字符串的一部分。下面你可以找到一些示例数据：

a <- c("23,45,24,67,91,10") 
b <- c("as.01,as.23,as55,as69") 

的目标是找到a任何子在b。因此，这应该返回TRUE，因为23出现在a和b中。我已经尝试过功能，如

charmatch 
grepl 
match 

但所有这些似乎不符合我的目的。任何帮助表示赞赏！

Answer 1

有可能是你输入的错误和b：

a <- c("23","45","24","67","91","10") 
b <- c("as.01","as.23","as55","as69") 

> any(sapply(a, grepl, x=b)) 
[1] TRUE 

或仅在您输入：

a <- c("23","45","24","67","91","10") 
b <- c("as.01,as.23,as55,as69") 

> any(sapply(a, grepl, x=b)) 
[1] TRUE 

或者，如果没有错误：

> any(sapply(strsplit(a,',')[[1]], grepl, x=b)) 
[1] TRUE 

Answer 2

你可以避免使用*apply循环并使用gsub对其进行矢量化，以便将,替换为|并将其转换为有效的正则表达式。

grepl(gsub(",", "|", a, fixed = TRUE), b) 
## [1] TRUE 

这样，你也不需要使用any因为它会返回只有一个TRUE即使你有一个以上的比赛，例如。

a <- "23,45,55,67,91,10" 
b <- "as.01,as.23,as55,as69" 

grepl(gsub(",", "|", a, fixed = TRUE), b) 
## [1] TRUE