>我有一个数据帧
soDf <- structure(list(State = c("Exception", "Exception", "Exception", "Exception", "Approval", "Processing"), User = c("1","2", "1", "3", "1", "4"), Voucher.Number = c(10304685L, 10304685L, 10304685L,10304685L, 10304685L, 10304685L), Queue.Exit.Date = c("8/24/2016 14:59", "8/26/2016 13:25", "8/26/2016 15:56", "8/26/2016 16:13", "8/26/2016 16:25", "8/26/2016 17:34")),.Names = c("State", "User", "Voucher.Number","Queue.Exit.Date"), row.names = 114:119, class = "data.frame")
我有一个规则列表,我想按以下条件过滤行:
规则之一是
(Voucher.Number == lag(Voucher.Number)) & (State == 'Exception' & lag(State) == 'Exception' )
如果当前凭证编号和滞后凭证编号相等,并且两者都具有异常标记,则计数将该行标记为 True
。
当我将此规则与其他几个规则应用时,它将第 4 行作为True
返回,当它应该返回为False
State User Voucher.Number Queue.Exit.Date toFilt
1 Exception 1 10304685 8/24/2016 14:59 NA
2 Exception 2 10304685 8/26/2016 13:25 TRUE
3 Exception 1 10304685 8/26/2016 15:56 TRUE
4 Exception 3 10304685 8/26/2016 16:13 TRUE
5 Approval 1 10304685 8/26/2016 16:25 FALSE
6 Processing 4 10304685 8/26/2016 17:34 FALSE
这是我用于所有过滤规则的代码
soDf <- soDf %>%
arrange(Voucher.Number, Queue.Exit.Date)%>%
mutate(toFilt = ((User == lag(User)& Voucher.Number ==lag(Voucher.Number)))|
((Voucher.Number != lag(Voucher.Number)) & State == "Exception") |
((Voucher.Number == lag(Voucher.Number)) & (State == 'Exception' & lag(State) == 'Exception' ))|
((Voucher.Number == lag(Voucher.Number)) & (User == lag(User))))
第 5 行不符合 mutate 列中的条件语句。第 5 行的状态是"批准"而不是"异常",并且用户 ID 与滞后用户 ID 不匹配。
因此,它返回 FALSE,因为 4 个语句中没有一个是 TRUE。它似乎不是编码错误,只是条件语句需要更改以满足您的需求。希望这有帮助!