Löschen Sie Zeilen mit bestimmten Werten, indem Sie die erste und letzte Zeile des Datenrahmens beibehalten.

Question

Ich habe einen Datenrahmen, der durch Anhängen ähnlicher Datenrahmen erstellt wurde. Beispieldatei https://drive.google.com/open?id=0BwswfhTezOETWmpPakpGOUl0V0E

Lat Lon Species BottomDepth RunStatus 
6023.9796 518.5393  NA TowStarted 
6023.9796 518.5393  Cucumber 25  
6023.9796 518.5393  Cucumber 25  
6023.9796 518.5392  Chank 25  
6023.9797 518.5392  NA TowStarted 
6023.9797 518.5392  NA TowStopped 
6023.9797 518.5392  Cucumber 29  
6023.9797 518.5392  Chank 29  
6023.9797 518.5392  Chank 29  
6023.9797 518.5391  Sea Urchine 29  
6023.9797 518.5391  Sea Urchine 29  
6023.9797 518.5391  NA TowStarted 
6023.9797 518.5391  NA TowStopped 
6023.9797 518.5391  Sea Urchine 29  
6023.9797 518.5391  Sea Urchine 29  
6023.9797 518.5391  Sea Urchine 29  
6023.9797 518.5391  Sea Urchine 29  
6023.9797 518.5391  Cucumber 29  
6023.9797 518.5391  NA TowStarted 
6023.9797 518.5391  NA TowStopped 
6023.9797 518.5391  Cucumber 29  
6023.9797 518.5391  Cucumber 35  
6023.9797 518.5391  Cucumber 35  
6023.9797 518.5391  Cucumber 35  
6023.9797 518.5391  Cucumber 35  
6023.9797 518.5391  Chank 35  
6023.9797 518.5391  NA TowStopped 

ich zum ersten und letzten Reihen zu halten brauchen. aber müssen Zeilen mit RunStatus == "TowStarted" und RunStatus == "TowStopped" löschen.

mf<- read.csv("C:/Video_sledge/Output/merge.csv") 
mf1 <-mf[ !grepl("TowStarted", mf$RunStatus) , ] 
mf2 <-mf1[ !grepl("TowStopped", mf1$RunStatus) , ] 

aber dieser Code löscht die erste und letzte Zeile.

Wie lösche mittlere Zeilen mit Testbedingung (RunStatus == "TowStarted" und RunStatus == "TowStopped") während die ersten und letzten Zeilen beibehalten werden?

erwartete Ausgabe als

Lat Lon Species BottomDepth RunStatus 
6023.9796 518.5393  NA TowStarted 
6023.9796 518.5393  Cucumber 25  
6023.9796 518.5393  Cucumber 25  
6023.9796 518.5392  Chank 25  
6023.9797 518.5392  Cucumber 29  
6023.9797 518.5392  Chank 29  
6023.9797 518.5392  Chank 29  
6023.9797 518.5391  Sea Urchine 29  
6023.9797 518.5391  Sea Urchine 29  
6023.9797 518.5391  Sea Urchine 29  
6023.9797 518.5391  Sea Urchine 29  
6023.9797 518.5391  Sea Urchine 29  
6023.9797 518.5391  Sea Urchine 29  
6023.9797 518.5391  Cucumber 29  
6023.9797 518.5391  Cucumber 29  
6023.9797 518.5391  Cucumber 35  
6023.9797 518.5391  Cucumber 35  
6023.9797 518.5391  Cucumber 35  
6023.9797 518.5391  Cucumber 35  
6023.9797 518.5391  Chank 35  
6023.9797 518.5391  NA TowStopped 

Answer 1

mf[c(1,which(!(mf$RunStatus %in% c(" TowStarted "," TowStopped "))),nrow(mf)),] 

Answer 2

folgt könnten Sie verwenden das dplyr Paket

library(dplyr) 
library(magrittr) 

df %>% 
    filter(!(RunStatus %in% c("TowStarted", "TowStopped")) | row_number() %in% c(1, nrow(df))) 

Getestet habe ich es auf anderen Daten und es funktionierte.

Answer 3

mf<- read.csv("C:/Video_sledge/Output/merge.csv") 
frow <- mf[1,] 
mf1 <-mf[ !grepl("TowStarted", mf$RunStatus) , ] 
mf2 <-mf1[ !grepl("TowStopped", mf1$RunStatus) , ] 
lrow <- mf[nrow(mf),] 
f <-rbind(frow,mf2,lrow) 

dieser Code gibt über Ausgabe mich. aber ich denke, jemand hat eine bessere Lösung.