Suchen, ob ein Stringvektor eine beliebige Zeichenfolge aus einem anderen Vektor enthält

Question

Gibt es eine einfache Möglichkeit zu finden, ob ein Stringvektor eine bestimmte Zeichenfolge aus einem anderen Vektor enthält? Ich habe eine Datenbank von Mail-Adressen und (ot rund 100 Liste)

Mail <- c("xxx1@xxx.xx", "xxx2@xxx.xx", "xxx3@yyy.xx", "xxx4@zzz.xx") 
InterestingPublishers <- c("zzz.xx", "xxx.xx") 

habe ich versucht, mit% in% der spezifischen Verlage nur diejenigen auswählen müssen, aber das ist für ganze fazes geprüft:

Mail %in% InterestingPublishers 
FALSE FALSE FALSE FALSE 

auch Grepl und grep nicht helfen, weil ich nicht Vektor als Eingabe setzen kann:

grepl(InterestingPublishers, Mail) 
Warning message: 
In grepl(InterestingPublishers, Mail) : 
    argument 'pattern' has length > 1 and only the first element will be used 

gibt es eine einfache Möglichkeit, das zu tun?

Answer 1

Es scheint, dass Sie an der Domäne interessiert sind. In diesem Fall ich würde vorschlagen, alles, aber die Domain und Top-Level-Domain zu entfernen und einfach verwenden %in%, dh

sub('.*@', '', Mail) %in% InterestingPublishers 

Answer 2

Während d.b ‚s Antwort (zur Zeit in den Kommentaren) hier durchaus sinnvoll ist, ist eine andere Basen- R Lösung mit Schleifen (die langsamer zu neigen, kann aber für Anfänger transparenter sein):

containsi <- integer() 
for (i in InterestingPublishers) { 
    containsi <- c(containsi, grep(i, Mail)) 
} 
Mail[containsi] 

[1] "xxx4@zzz.xx" "xxx1@xxx.xx" "xxx2@xxx.xx" 

PS . Sie könnten a slight speed improvement (wenn das wichtig ist) mit lapply anstelle von sapply in d.b 's Lösung.

Mail[unlist(lapply(InterestingPublishers, function(x) grep(x, Mail)))]