字段中带有特定字符串的R排序表（R语言）

我有我的表格（输入）：

我只想在字段

event\u id

中保留包含或

Source:Coins

或

Sink:Coins

的行。结果（输出）：

---

event\u id

是字符。

不确定输入的格式，但对于数据帧，可以使用grep查找匹配字符串的索引

df=data.frame(user_name = c("Joe" ,"Tom" ,"Fred"  ,"Tom"   ,"Joe"),"event_id"=c("Source:Coins:MinigameReward","Sink:Coins:EndSession","Sink:Tickets:StartGame","Source:Tickets:EndSession","Sink:Coins:EndSession"))

df[c(grep("Source:Coins",df$event_id), grep("Sink:Coins",df$event_id)),]

df
     user_name    event_id  
1     "Joe"    Source:Coins:MinigameReward
2     "Tom"    Sink:Coins:EndSession
3     "Joe"    Sink:Coins:EndSession

df=data.frame(user_name = c("Joe" ,"Tom" ,"Fred"  ,"Tom"   ,"Joe"),"event_id"=c("Source:Coins:MinigameReward","Sink:Coins:EndSession","Sink:Tickets:StartGame","Source:Tickets:EndSession","Sink:Coins:EndSession"))

df[c(grep("Source:Coins",df$event_id), grep("Sink:Coins",df$event_id)),]

df <- data.frame(user_name=c('Joe','Tom','Fred','Tom','Joe'),event_id=c('Source:Coins:MinigameReward','Sink:Coins:EndSession','Sink:Tickets:StartGame','Source:Tickets:EndSession','Sink:Coins:EndSession'),stringsAsFactors=F);
df[grep('(Source|Sink):Coins',df$event_id),];
##   user_name                    event_id
## 1       Joe Source:Coins:MinigameReward
## 2       Tom       Sink:Coins:EndSession
## 5       Joe       Sink:Coins:EndSession