延遲不會看到突變對前一行的影響

Question

我似乎已經無意中發現了我無法解釋的一個mutate/lag/ifelse行爲。我有以下（簡化的）數據幀：

test <- data.frame(type = c("START", "END", "START", "START", "START", "START", "END"), 
        stringsAsFactors = FALSE) 

> test 

    type 
1 START 
2 END 
3 START 
4 START 
5 START 
6 START 
7 START 
8 END 

我想修改列type以具有交替的START和END雙序列（請注意，在test數據幀僅START序列是可能的， END永不重複）：

> desired 

    type 
1 START 
2 END 
3 START 
4 END 
5 START 
6 END 
7 START 
8 END 

我以爲我可以實現我用下面的代碼的目標：

test %>% 
mutate(type = ifelse(type == "START" & 
         dplyr::lag(type, n=1, default="END") == "START" & 
         dplyr::lead(type, n=1, default="END") == "START", "END" , type)) 

代碼應檢測其中START由START之前和之後一START行，在這種情況下，type值改變爲END。在此更改之後，以下START（行號5的test）不應匹配，因爲其先前的type值現在爲END。不幸的是，該命令的輸出如下：

type 
1 START 
2 END 
3 START 
4 END 
5 END 
6 END 
7 START 
8 END 

這就像通過lag看到的值不會受發生變異。這是應該如何工作？有沒有辦法以lag在前一行看到mutate的影響的方式對其進行編碼？

版本，R 3.2.3版（2015年12月10日），dplyr_0.4.3

UPDATE：爲什麼上面的代碼不工作是由保羅Rougieux下面解釋其原因是：超前和滯後被固定並沒有考慮到進一步的修改。所以我想正確的答案是「它不能直接使用dplyr來完成」。分別在mutate()

Answer 1

定義滯後和鉛的變量會告訴你，你對ifelse(type == "START" & lag == "START" & lead == "START", "END" , type)調用行不通：

test <- data.frame(type = c("START", "END", "START", "START", "START", "START", "END"), stringsAsFactors = FALSE) 
test %>% 
    mutate(lag = dplyr::lag(type, n=1, default="END"), 
      lead = dplyr::lead(type, n=1, default="END"), 
      type2 = ifelse(type == "START" & lag == "START" & lead == "START", 
          "END" , type)) 

# type lag lead type2 
#1 START END END START 
#2 END START START END 
#3 START END START START 
#4 START START START END 
#5 START START START END 
#6 START START END START 
#7 END START END END 

dplyr::mutate()修改矢量作爲一個整體。先導和滯後是固定的，不考慮對矢量的進一步修改。你想要的是這種情況下的`Reduce（）函數。檢查幫助（減少）。

Answer 2

這個怎麼樣？

test$type[test$type != c("START", "END")] <- 
ifelse(test$type[test$type != c("START", "END")] == "START", "END", "START") 

test 
    type 
1 START 
2 END 
3 START 
4 END 
5 START 
6 END 
7 START 

（這些警告可以忽略不計）