根据数据模式对数据表进行子集

Question

我有一个这样的数据表:

z
     a   b negflag
 1:  1  41       0
 2:  2  61       0
 3:  3 623       0
 4:  4 -12       1
 5:  5  10       0
 6:  6  15       0
 7:  7  16       0
 8:  8  -9       1
 9:  9  31       0
10: 10  10       0

我想要做的是在"negflag"旁边添加一个列,它告诉我b列中是否有正值,之前是2行.

像这样:

     a   b negflag posflag
 1:  1  41       0       0
 2:  2  61       0       1
 3:  3 623       0       1
 4:  4 -12       1       0
 5:  5  10       0       0
 6:  6  15       0       1
 7:  7  16       0       1
 8:  8  -9       1       0
 9:  9  31       0       0
10: 10  10       0       0

因此,如果在负面发生之前存在正值1和2行(包括),我希望另一列给出1.

问候

Answer 1

此答案的第一次迭代没有考虑所提供的数据集中不存在的几种情况(尽管它确实提供了所提供数据的预期输出).使用新数据集,znew您将需要另一个过程来获取正确的输出,从而满足问题中的指定条件:

znew[, pf := as.integer(b < 0 & shift(b, fill = 0) > 0 & shift(b, n = 2L, fill = 0) > 0)
     ][, posflag := as.integer(shift(pf, type = 'lead', fill = 0)==1 | shift(pf, n = 2L, type = 'lead', fill = 0)==1)
       ][, pf := NULL]

或(根据@Frank的建议):

idx <- znew[, .I[b < 0 & do.call(pmin, shift(b, 1:2, fill=0L)) > 0]]
znew[, posflag := 0L][c(idx-1L, idx-2L), posflag := 1L]

两者都给:

> znew
     a   b negflag posflag
 1:  1 -41       1       0
 2:  2  61       0       1
 3:  3 623       0       1
 4:  4 -12       1       0
 5:  5  10       0       0
 6:  6 -15       1       0
 7:  7  16       0       0
 8:  8  -9       1       0
 9:  9  31       0       0
10: 10  10       0       0

两种方法首先确定是否满足条件(列中负值的两个正的先前值b)并创建posflag变量.

使用数据:

znew <- fread('a  b  negflag
 1   -41     1
 2    61     0
 3   623     0
 4   -12     1
 5    10     0
 6   -15     1
 7    16     0
 8    -9     1
 9    31     0
10    10     0')

旧答案:您可以使用以下shift功能data.table:

z[, posflag := as.integer(b > 0 & shift(b) > 0 & (shift(b, type = 'lead', 
           fill = 0) < 0 | shift(b, n = 2L, type = 'lead', fill = 0) < 0))]

会给你:

> z
     a   b negflag posflag
 1:  1  41       0       0
 2:  2  61       0       1
 3:  3 623       0       1
 4:  4 -12       1       0
 5:  5  10       0       0
 6:  6  15       0       1
 7:  7  16       0       1
 8:  8  -9       1       0
 9:  9  31       0       0
10: 10  10       0       0