grep usando um vetor de caracteres com vários padrões

Estou tentando usar greppara testar se um vetor de seqüências de caracteres está presente em outro vetor ou não, e para gerar os valores que estão presentes (os padrões correspondentes).

Eu tenho um quadro de dados como este:

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

Eu tenho um vetor de padrões de cordas de ser encontrado nas colunas da "letra", por exemplo: c("A1", "A9", "A6").

Gostaria de verificar se alguma das cadeias no vetor padrão está presente na coluna "Carta". Se forem, eu gostaria da saída de valores únicos.

O problema é que não sei usar grepcom vários padrões. Eu tentei:

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

Mas me dá 0 correspondências, o que não é verdade, alguma sugestão?

Além do comentário de @ Marek sobre não incluir fixed==TRUE, você também não precisa ter os espaços em sua expressão regular. Deveria ser "A1|A9|A6".

Você também mencionou que existem muitos padrões. Supondo que eles estejam em um vetor

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

Em seguida, você pode criar sua expressão regular diretamente usando pastee collapse = "|".

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

Boas respostas, no entanto, não se esqueça filter()do 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

Isso deve funcionar:

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

Ou ainda mais simplesmente:

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

Com base na publicação de Brian Digg, aqui estão duas funções úteis para filtrar listas:

#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)
}

Você já tentou as funções match()ou charmatch()?

Exemplo de uso:

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

Não tenho certeza se esta resposta já apareceu ...

Para o padrão específico da pergunta, você pode fazer isso com uma única grep()chamada,

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

Para adicionar à resposta de Brian Diggs.

de outra maneira, usando grepl retornará um quadro de dados contendo todos os seus valores.

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

Talvez um pouco mais limpo ... talvez?

Tire os espaços. Então faz:

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

Usando o 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

Sugiro escrever um pequeno script e fazer várias pesquisas com o Grep. Eu nunca encontrei uma maneira de procurar vários padrões e, acredite, já procurei!

Assim, seu arquivo shell, com uma string incorporada:

 #!/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";

Em seguida, execute digitando myshell.sh.

Se você quiser passar a string na linha de comando, faça o seguinte, com um argumento shell - esta é a notação bash btw:

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

E assim por diante.

Se houver muitos padrões para combinar, você pode colocá-lo em um loop for.