シーケンスの変更をどのように追跡できますか？

Question

私はLO_SEQ_NOを追跡したいと思っています。変更前と変更後に現在変更を受けています。私は

"LO_SEQ_NO lse 
    358  0 
    478  1 
    478  0 
    478  0 
    478  0 

として置いて取得ステータス変更

loan_test$lse <-with(loan_test, as.integer(c(FALSE, LO_SEQ_NO[-length(LO_SEQ_NO)] - LO_SEQ_NO[-1]) !=0)) 

を追跡することができます方法はあります。しかし

"LO_SEQ_NO  lse 
     358  1 
     478  1 
     478  0 
     478  0 
     478  0 

Answer 1

がlagとleadの両方をチェックしてみて、私は出力を必要とします列：

df %>% mutate(
    lse = as.integer(
     LO_SEQ_NO != lag(LO_SEQ_NO, default=first(LO_SEQ_NO)) | 
     LO_SEQ_NO != lead(LO_SEQ_NO, default=last(LO_SEQ_NO)) 
    ) 
) 

# LO_SEQ_NO lse 
#1  358 1 
#2  478 1 
#3  478 0 
#4  478 0 
#5  478 0