如果在data.table中發現模式，則提取列的一部分

Question

我有一個data.table，我想將一個模式列的向量部分放入其他列中。例如我有以下data.table：

library(data.table) 
df <- fread('./file') 
df 

     V1 V2 V3 V4 V5  V6 V7 V8 V9 
    1: 0 -148 -49 -1 X  CAT 5 0 NA 
    2: 1 -147 -49 5 X  FOT 12 0 NA 
    3: 2 -146 -49 3 X  FAT 53 0 NA 
    4: 3 -145 -48 -2 X  BYE 10 0 NA 
    5: 4 -144 -48 0 X  GOO 2 0 NA 

我想提取從V7一組的圖案之間存在的值，並把這些值從V7到載體中。

起始模式是這些：

V2 == -147 & V4 == 5 & V6 == 'FOT' 

的結束模式是這些：

V4 == -2 & V6 == 'BYE' 

如果發現這些模式，然後提取它們之間從V7的值。所以12,53,10應該被放入一個向量（x）中。

Answer 1

這應做到：

n <- min(which((df$V2 == -147 & df$V4 == 5 & df$V6 =='FOT') == TRUE)) #determine the start 

m <- max(which(df$V4 == -2 & df$V6 == 'BYE')) #determine the end 

x <- df$V7[n:m] 

>x 
#[1] 12 53 10 

Answer 2

一個我能想到的方法是使用which=TRUE：

start = DT[V2 == -147 & V4 == 5 & V6=='FOT', which=TRUE] ## [1] 2L 
end = DT[V4 == -2 & V6=='BYE', which=TRUE] ## [2] 4L 

DT[start:end, V7] 
# [1] 12 53 10 

注意，如果有多個匹配，那麼所有指標將被退回。您可能需要選擇相應的start和end值。也是模式不返回任何匹配的情況。我會留給你來解決這些邊緣案例。