여러 패턴의 문자형 벡터를 사용하여 grep

I를 사용하는 것을 시도하고 grep있는 (패턴 매칭)되는 값을 문자열 벡터가 다른 벡터 아닌지에 존재하는지 여부를 검사하고, 출력한다.

다음과 같은 데이터 프레임이 있습니다.

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

"Letter"열에서 찾을 수있는 문자열 패턴의 벡터가 있습니다 (예 :) c("A1", "A9", "A6").

패턴 벡터의 문자열이 "Letter"열에 있는지 확인하고 싶습니다. 그렇다면 고유 값의 출력을 원합니다.

문제는 grep여러 패턴 으로 사용하는 방법을 모른다는 것 입니다. 나는 시도했다 :

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

그러나 그것은 사실이 아닌 0 개의 일치 항목을 제공합니다.

를 포함하지 않는 것에 대한 @Marek의 의견 외에도 fixed==TRUE정규 표현식에 공백이 없어도됩니다. 이어야합니다 "A1|A9|A6".

또한 많은 패턴이 있다고 언급합니다. 그들이 벡터에 있다고 가정

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

그런 다음 pasteand를 사용하여 정규식을 직접 만들 수 있습니다 collapse = "|".

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

좋은 답변이지만 filter()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

이것은 작동해야합니다 :

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

또는 더 간단하게 :

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

Brian Digg의 게시물을 기반으로 목록을 필터링하는 데 유용한 두 가지 기능이 있습니다.

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

match()또는 charmatch()기능 을 사용해 보셨습니까 ?

사용 예 :

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

이 답변이 이미 있는지 확실하지 않습니다 ...

질문의 특정 패턴에 대해서는 한 번의 grep()호출로 수행 할 수 있습니다 .

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

Brian Diggs의 답변에 추가하십시오.

grepl을 사용하는 다른 방법은 모든 값을 포함하는 데이터 프레임을 반환합니다.

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

좀 더 깨끗 할까 ... 어쩌면?

공간을 빼앗아 그렇습니다 :

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

사용하여 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

작은 스크립트를 작성하고 Grep을 사용하여 여러 번 검색하는 것이 좋습니다. 여러 패턴을 검색 할 수있는 방법을 찾지 못했고 나를 믿었습니다.

다음과 같이 문자열이 포함 된 쉘 파일 :

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

그런 다음 myshell.sh를 입력하여 실행하십시오.

명령 행에서 문자열을 전달하려면 쉘 인수를 사용하여 다음과 같이하십시오 : bash 표기법 btw :

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

기타 등등.

일치시킬 패턴이 많으면 for 루프에 넣을 수 있습니다.