grep utilisant un vecteur de caractères avec plusieurs motifs

J'essaie d'utiliser greppour tester si un vecteur de chaînes est présent ou non dans un autre vecteur, et pour sortir les valeurs présentes (les modèles correspondants).

J'ai une trame de données comme celle-ci:

FirstName Letter   
Alex      A1
Alex      A6
Alex      A7
Bob       A1
Chris     A9
Chris     A6

J'ai un vecteur de modèles de chaînes à trouver dans les colonnes « Lettre », par exemple: c("A1", "A9", "A6").

Je voudrais vérifier si l'une des chaînes du vecteur de motif est présente dans la colonne "Lettre". S'ils le sont, je voudrais la sortie de valeurs uniques.

Le problème est que je ne sais pas comment utiliser grepplusieurs modèles. J'ai essayé:

matches <- unique (
    grep("A1| A9 | A6", myfile$Letter, value=TRUE, fixed=TRUE)
)

Mais cela me donne 0 correspondances, ce qui n'est pas vrai, des suggestions?

En plus du commentaire de @ Marek sur la non-inclusion fixed==TRUE, vous devez également ne pas avoir d'espaces dans votre expression régulière. Ça devrait être "A1|A9|A6".

Vous mentionnez également qu'il existe de nombreux modèles. En supposant qu'ils sont dans un vecteur

toMatch <- c("A1", "A9", "A6")

Ensuite, vous pouvez créer votre expression régulière directement en utilisant pasteet collapse = "|".

matches <- unique (grep(paste(toMatch,collapse="|"), 
                        myfile$Letter, value=TRUE))

Bonnes réponses, mais n'oubliez pas filter()de dplyr:

patterns <- c("A1", "A9", "A6")
>your_df
  FirstName Letter
1      Alex     A1
2      Alex     A6
3      Alex     A7
4       Bob     A1
5     Chris     A9
6     Chris     A6

result <- filter(your_df, grepl(paste(patterns, collapse="|"), Letter))

>result
  FirstName Letter
1      Alex     A1
2      Alex     A6
3       Bob     A1
4     Chris     A9
5     Chris     A6

Cela devrait fonctionner:

grep(pattern = 'A1|A9|A6', x = myfile$Letter)

Ou encore plus simplement:

library(data.table)
myfile$Letter %like% 'A1|A9|A6'

Basé sur l'article de Brian Digg, voici deux fonctions utiles pour filtrer les listes:

#Returns all items in a list that are not contained in toMatch
#toMatch can be a single item or a list of items
exclude <- function (theList, toMatch){
  return(setdiff(theList,include(theList,toMatch)))
}

#Returns all items in a list that ARE contained in toMatch
#toMatch can be a single item or a list of items
include <- function (theList, toMatch){
  matches <- unique (grep(paste(toMatch,collapse="|"), 
                          theList, value=TRUE))
  return(matches)
}

Avez-vous essayé les fonctions match()ou charmatch()?

Exemple d'utilisation:

match(c("A1", "A9", "A6"), myfile$Letter)

Je ne sais pas si cette réponse est déjà apparue ...

Pour le modèle particulier de la question, vous pouvez simplement le faire avec un seul grep()appel,

grep("A[169]", myfile$Letter)

Pour ajouter à la réponse de Brian Diggs.

une autre façon d'utiliser grepl renverra une trame de données contenant toutes vos valeurs.

toMatch <- myfile$Letter

matches <- myfile[grepl(paste(toMatch, collapse="|"), myfile$Letter), ]

matches

Letter Firstname
1     A1      Alex 
2     A6      Alex 
4     A1       Bob 
5     A9     Chris 
6     A6     Chris

Peut-être un peu plus propre ... peut-être?

Otez les espaces. Alors faites:

matches <- unique(grep("A1|A9|A6", myfile$Letter, value=TRUE, fixed=TRUE))

En utilisant le sapply

 patterns <- c("A1", "A9", "A6")
         df <- data.frame(name=c("A","Ale","Al","lex","x"),Letters=c("A1","A2","A9","A1","A9"))



   name Letters
1    A      A1
2  Ale      A2
3   Al      A9
4  lex      A1
5    x      A9


 df[unlist(sapply(patterns, grep, df$Letters, USE.NAMES = F)), ]
  name Letters
1    A      A1
4  lex      A1
3   Al      A9
5    x      A9

Je suggère d'écrire un petit script et de faire plusieurs recherches avec Grep. Je n'ai jamais trouvé un moyen de rechercher plusieurs modèles, et croyez-moi, j'ai cherché!

Comme ça, votre fichier shell, avec une chaîne intégrée:

 #!/bin/bash 
 grep *A6* "Alex A1 Alex A6 Alex A7 Bob A1 Chris A9 Chris A6";
 grep *A7* "Alex A1 Alex A6 Alex A7 Bob A1 Chris A9 Chris A6";
 grep *A8* "Alex A1 Alex A6 Alex A7 Bob A1 Chris A9 Chris A6";

Puis exécutez en tapant myshell.sh.

Si vous voulez pouvoir passer la chaîne sur la ligne de commande, faites-le comme ceci, avec un argument shell - c'est la notation bash btw:

 #!/bin/bash 
 $stingtomatch = "${1}";
 grep *A6* "${stingtomatch}";
 grep *A7* "${stingtomatch}";
 grep *A8* "${stingtomatch}";

Et ainsi de suite.

S'il y a beaucoup de modèles à faire correspondre, vous pouvez le mettre dans une boucle for.