刪除數據幀是以前所有的行值的行

Question

考慮df1：

df <- data.frame(time = c(1,2,3,4,5,6,7,8,9,10), marker = c(NA,NA,NA,"stop",NA,NA,NA,"start",NA,NA), behaviour = c("Rest","Rest","Rest","Rest","Awake","Awake","Awake","Awake","Awake","Rest")) 

    time marker behaviour 
1  1 <NA>  Rest 
2  2 <NA>  Rest 
3  3 <NA>  Rest 
4  4 stop  Rest 
5  5 <NA>  Awake 
6  6 <NA>  Awake 
7  7 <NA>  Awake 
8  8 start  Awake 
9  9 <NA>  Awake 
10 10 <NA>  Rest 

我想子集基於markers列中的數據並沒有包括作爲元素「停」之間的數據和「啓動，以便df看起來是這樣的：

time marker behaviour 
    1 <NA>  Rest 
    2 <NA>  Rest 
    3 <NA>  Rest 
    4 stop  Rest 
    8 start  Awake 
    9 <NA>  Awake 
    10 <NA>  Rest 

Answer 1

我們可以用一個數字索引子集行

i1 <- with(df, which(marker %in% c("stop", "start"))) 
df[-((i1[1]+1):(i1[2]-1)),] 

---

如果有多個'開始」，‘停止’，那麼，我們可以做

grp <- with(df, c(0, head(cumsum(marker == "stop" & !is.na(marker)),-1))) 
df[with(df, ave(marker == "start" & !is.na(marker), 
      grp, FUN = function(x) !any(x)|cumsum(x)>0)),] 
# time marker behaviour 
#1  1 <NA>  Rest 
#2  2 <NA>  Rest 
#3  3 <NA>  Rest 
#4  4 stop  Rest 
#8  8 start  Awake 
#9  9 <NA>  Awake 
#10 10 <NA>  Rest 

Answer 2

df <- data.frame(time = c(1,2,3,4,5,6,7,8,9,10), marker = c("NA","NA","NA","stop","NA","NA","NA","start","NA","NA"), behaviour = c("Rest","Rest","Rest","Rest","Awake","Awake","Awake","Awake","Awake","Rest")) 

df1 <- as.integer(row.names(df[df$marker=="stop",]))+1 
df2 <- as.integer(row.names(df[df$marker=="start",]))-1 
ans <- df[-(df1:df2),] 

Answer 3

一個cumsum溶液（我用data.table以及但是你沒有）這可以推廣到多個stop/start值將是：

library(data.table) 
dt <- as.data.table(df) 

dt[, drop := list(cumsum(marker=="stop" & !is.na(marker)) - 
        cumsum(marker=="start" & !is.na(marker)))][drop==0 | marker == "stop"] 

    # time marker behaviour drop 
    # 1: 1  NA  Rest 0 
    # 2: 2  NA  Rest 0 
    # 3: 3  NA  Rest 0 
    # 4: 4 stop  Rest 1 
    # 5: 8 start  Awake 0 
    # 6: 9  NA  Awake 0 
    # 7: 10  NA  Rest 0