R - test if a string vector contains any element of another list
20,181
Solution 1
You can get this using grepl
.
lst_A <- c("TET","RNR")
lst_B = c("RNR_B","BC_TET")
Pattern = paste(lst_A, collapse="|")
grepl(Pattern, lst_B)
library(data.table)
DT_result <- data.table(lst_B, result=grepl(Pattern, lst_B))
DT_result
lst_B result
1: RNR_B TRUE
2: BC_TET TRUE
Addition
To respond to a comment, here is an example with more strings to test. Some pass the test, others not.
lst_A <- c("TET","RNR")
lst_B = c("RNR_B","BC_TET", "Fred", "RNR_A", "Zero", "ABC_TET")
Pattern = paste(lst_A, collapse="|")
DT_result <- data.table(lst_B, result=grepl(Pattern, lst_B))
DT_result
lst_B result
1: RNR_B TRUE
2: BC_TET TRUE
3: Fred FALSE
4: RNR_A TRUE
5: Zero FALSE
6: ABC_TET TRUE
Solution 2
DT_result[,results:=sapply(lst_A,function(x)any(grepl(x,lst_B)))][]
lst_B results
1: RNR_B TRUE
2: BC_TET TRUE
Solution 3
Using stringr
's str_detect
stringr::str_detect(DT_result$lst_B,'TET|RNR')
[1] TRUE TRUE
#DF['hit']=stringr::str_detect(DT_result$lst_B,'TET|RNR')
Solution 4
Loop over each option with grepl
and then combine with an |
('OR'):
DT_result[, hit := Reduce(`|`, Map(grepl, lst_A, .(lst_B)))]
DT_result
# lst_B hit
#1: RNR_B TRUE
#2: BC_TET TRUE
Author by
LeGeniusII
Updated on June 04, 2020Comments
-
LeGeniusII almost 4 years
I have:
> lst_A <- c("TET","RNR") > DT_result <- data.table(lst_B = c("RNR_B","BC_TET"))
I want:
> DT_result <- data.table(lst_B = c("RNR_B","BC_TET"), result = c(TRUE,TRUE)) > DT_result lst_B result 1: RNR_B TRUE 2: BC_TET TRUE
Basically, for each element in 'lst_B' if it contains any element in 'lst_A' then TRUE otherwise FALSE.