grep โดยใช้เวกเตอร์อักขระที่มีหลายรูปแบบ

ฉันกำลังพยายามใช้ 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")

จากนั้นคุณสามารถสร้างการแสดงออกปกติของคุณได้โดยตรงโดยใช้และpastecollapse = "|"

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 จะส่งคืน data frame ที่มีค่าทั้งหมดของคุณ

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}";

และอื่น ๆ

หากมีลวดลายให้เข้ากันจำนวนมากคุณสามารถใส่เป็นห่วงได้