grep sử dụng một vectơ ký tự có nhiều mẫu

Tôi đang cố gắng sử dụng grepđể kiểm tra xem một vectơ của chuỗi có hiện diện trong một vectơ khác hay không và để xuất các giá trị hiện diện (các mẫu phù hợp).

Tôi có một khung dữ liệu như thế này:

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

Tôi có một vectơ các mẫu chuỗi được tìm thấy trong các cột "Chữ", ví dụ : c("A1", "A9", "A6").

Tôi muốn kiểm tra xem có bất kỳ chuỗi nào trong vectơ mẫu có trong cột "Thư" không. Nếu có, tôi muốn đầu ra của các giá trị duy nhất.

Vấn đề là, tôi không biết cách sử dụng grepvới nhiều mẫu. Tôi đã thử:

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

Nhưng nó cho tôi 0 trận không đúng, có gợi ý nào không?

Ngoài nhận xét của @ Marek về việc không bao gồm fixed==TRUE, bạn cũng cần không có khoảng trắng trong biểu thức thông thường. Nó phải "A1|A9|A6".

Bạn cũng đề cập rằng có rất nhiều mẫu. Giả sử rằng chúng ở trong một vectơ

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

Sau đó, bạn có thể tạo biểu thức chính quy của bạn trực tiếp bằng cách sử dụng pastevà collapse = "|".

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

Câu trả lời hay, tuy nhiên đừng quên filter()từ 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

Điều này sẽ làm việc:

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

Hoặc thậm chí đơn giản hơn:

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

Dựa trên bài đăng của Brian Digg, đây là hai chức năng hữu ích để lọc danh sách:

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

Bạn đã thử match()hoặc các charmatch()chức năng?

Ví dụ sử dụng:

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

Không chắc câu trả lời này đã xuất hiện chưa ...

Đối với mẫu cụ thể trong câu hỏi, bạn chỉ có thể thực hiện với một grep()cuộc gọi duy nhất ,

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

Để thêm vào câu trả lời của Brian Diggs.

một cách khác sử dụng grepl sẽ trả về một khung dữ liệu chứa tất cả các giá trị của bạn.

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

Có lẽ sạch hơn một chút ... có lẽ?

Lấy đi những khoảng trống. Làm như vậy:

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

Sử dụng 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

Tôi đề nghị viết một đoạn script nhỏ và thực hiện nhiều tìm kiếm với Grep. Tôi chưa bao giờ tìm thấy một cách để tìm kiếm nhiều mẫu và tin tôi đi, tôi đã xem!

Giống như vậy, tệp shell của bạn, với một chuỗi nhúng:

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

Sau đó chạy bằng cách gõ myshell.sh.

Nếu bạn muốn có thể truyền vào chuỗi trên dòng lệnh, hãy làm như thế này, với một đối số shell - đây là ký hiệu bash btw:

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

Và kể từ đó trở đi.

Nếu có rất nhiều mẫu phù hợp, bạn có thể đặt nó trong một vòng lặp for.