Как получить строковый вектор в другом строковом в R

Question

Предположим, у меня есть два строковых вектора:

s1<-c("ab", "cd-e", "hij")
s2<-c("0ab12345", "xyzcd-e", "uvwxyz132", "13216469", "%qrst012")

. Мне нужно было найти элементы в s1, которые появляются в s2, таким образом, приведенный выше пример даст вывод

"ab", "cd-e"

Answer 1

Используйте Filter с указанной функцией. Пакеты не используются.

Filter(function(x) any(grepl(x, s2)), s1)
## [1] "ab"   "cd-e"

Answer 2

Мы можем grepl сверх s1 для каждого значения в s2 и выбрать, если любое из них равно TRUE.

s1[colSums(sapply(s1, grepl, s2)) > 0]
#[1] "ab"   "cd-e"

Answer 3

Вот один из способов

s1[sapply(s1,function(x) any(grepl(x,s2)))]
[1] "ab"   "cd-e