如何考虑R中每个观察的前后行
我需要创建两个列：PRETARGET和TARGET，基于几个条件 要创建预目标，对于我的每一行数据（对于每个参与者PPT和试用），我需要检查当前_ID是否与列CanBePretarget中的值0关联，并且下一行是当前_ID+1的值。如果这些条件是满足的，那么我希望值为0，如果它们不满足值为1 要创建目标，对于我的每一行数据（对于每个参与者PPT和试用），我需要检查当前的_ID是否与列CanbetTarget中的值0关联，并且前一行是当前_ID-1的值。如果这些条件是满足的，那么我希望值为0，如果它们不满足值为1 此外，如果PRETARGET中的结果为1，则TARGET中下一行的值也应为1 我在下面的示例中添加了所需的输出如何考虑R中每个观察的前后行,r,conditional-statements,sequence,R,Conditional Statements,Sequence,我需要创建两个列：PRETARGET和TARGET，基于几个条件 要创建预目标，对于我的每一行数据（对于每个参与者PPT和试用），我需要检查当前_ID是否与列CanBePretarget中的值0关联，并且下一行是当前_ID+1的值。如果这些条件是满足的，那么我希望值为0，如果它们不满足值为1 要创建目标，对于我的每一行数据（对于每个参与者PPT和试用），我需要检查当前的_ID是否与列CanbetTarget中的值0关联，并且前一行是当前_ID-1的值。如果这些条件是满足的，那么我希望值为0，如果
我想使用for循环和IFFER语句，但是我不知道如何考虑每个观察的前/下一行。< /P>
PPT TRIAL PREVIOUS_ID CURRENT_ID NEXT_ID CURRENT_INDEX CanBePretarget CanBeTarget PRETARGET TARGET
ppt01 11 2 3 4 3 0 0 0 1
ppt01 11 3 4 3 4 1 0 1 0
ppt01 11 4 5 6 8 0 0 1 1
ppt01 11 6 7 8 10 0 0 1 1
ppt01 11 7 10 11 18 0 1 0 1
ppt01 11 10 11 12 19 0 0 0 0
ppt01 11 11 12 14 20 1 0 1 0
ppt01 12 1 2 1 2 1 0 1 1
ppt01 12 2 3 4 5 0 0 1 1
ppt01 12 5 6 6 8 0 0 0 1
ppt01 12 6 7 7 10 0 0 0 0
ppt01 12 7 8 9 12 0 0 0 0
ppt01 12 8 9 9 13 0 0 0 0
ppt01 12 9 10 11 16 0 0 0 0
ppt01 12 10 11 11 17 0 0 0 0
ppt01 13 1 2 2 2 1 0 1 1
ppt01 13 3 3 3 10 0 0 1 1
ppt01 13 4 5 6 13 0 0 0 1
ppt01 13 5 6 7 14 0 0 1 0
ppt01 13 9 9 10 19 0 0 0 1
ppt01 13 9 10 10 20 0 0 0 0
ppt01 13 10 11 12 22 0 0 0 0
ppt01 13 11 12 12 23 0 0 1 0
ppt01 14 10 11 11 15 0 0 0 1
ppt01 14 11 12 12 17 0 0 1 0
这可以通过使用
dplyrdf.new <- df %>%
mutate(PRETARGET1 = abs(as.numeric(CanBePretarget == 0 & lead(CURRENT_ID, default = 0) == (CURRENT_ID + 1)) - 1)) %>%
group_by(PPT, TRIAL) %>%
mutate(TARGET1 = abs(as.numeric((CanBeTarget == 0 & lag(CURRENT_ID, default = 0) == (CURRENT_ID - 1)) ) -1),
TARGET1 = ifelse(lag(PRETARGET1, default = 0) == 1, 1, TARGET1))
df.new%
mutate（PRETARGET1=abs（as.numeric（CanBePretarget==0&lead（CURRENT\u ID，default=0）==（CURRENT\u ID+1））-1））%>%
分组依据（PPT，试验）%>%
变异（TARGET1=abs（as.numeric（（CanBeTarget==0&lag（CURRENT\u ID，default=0）==（CURRENT\u ID-1））-1），
TARGET1=ifelse（滞后（预目标1，默认值=0）=1，1，TARGET1））
PRETARGET1TARGET1