刪除行，包括和一個字符串後

Question

說，我們有：

dat <- data.frame(x1 = c(rep(c("A","B"), each = 4),"B"), 
       x2 = rep(c("a","a","b","b", "a","a","a","a","a")), 
       x3 = c("cow","pig","cow","cow", 
         "cow","pig","pig","pig", 
         "cow" 
         ) 
       ) 

我想繼續爲每X1：X2組合中的所有行前的「豬」的發生，幷包括後和「豬」後刪除所有行發生。

如果只有「牛」，那麼我保留所有的「牛」，如果只有「豬」，然後刪除所有的行。

這個例子將給：

x1 x2 x3 
1 A a cow 
3 A b cow 
4 A b cow 
5 B a cow 

我可以寫例如罰款，這個ddply，但我知道必須有一個功能，迅速得到行「豬」，我無法找到之前和保存一個循環。

Answer 1

與子集更容易：

dat[!(dat$x3=='pig'),] 
x1 x2 x3 
1 A a cow 
3 A b cow 
4 A b cow 

編輯：第一「豬」後刪除所有行，這樣做：

badrow<-which(dat$x3=='pig')[1] 
dat[1:(badrow-1),] 

增加了一些代碼來處理情況which回報一無所有所有。