重新編碼基於周圍值的向量中的值

Question

我試圖以編程方式將變量從0更改爲1如果在0之前和之後有三個1。

例如，如果在載體中的數量分別爲1，1，1，0，1，1，並1，然後我想將0改變爲1。

下面是數據的載體dummy_code在data.framedf：

original_df <- data.frame(dummy_code = c(1, 0, 0, 1, 1, 1, 0, 1, 1, 1, 0, 0, 1)) 

這裏是我怎樣，我想有值重新編碼：

desired_df <- data.frame(dummy_code = c(1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1) 

我試圖用the function fill in the package tidyr，但是這填寫了缺失的值，所以它不起作用。如果我要將0值重新編碼爲缺失值，那麼這也不起作用，因爲它只會將每個NA編碼爲1，當時我只想編碼每個包含三個1s的NA作爲1。

有沒有辦法以編程的方式以有效的方式做到這一點？

Answer 1

一種rle替代方案中，使用從@G的x。格羅騰迪克的回答是：

r <- rle(x) 

的奔跑查找索引3 1：

i1 <- which(r$lengths == 3 & r$values == 1) 

檢查其中的「1指標」圍繞一個0，並得到了0的指標進行更換：

i2 <- i1[which(diff(i1) == 2)] + 1 

替換相關0與1：

r$values[i2] <- 1 

反向更新的運行的rle操作：

inverse.rle(r) 
# [1] 1 0 0 1 1 1 1 1 1 1 0 0 1 

---

基於data.table::rleid類似的解決方案，更爲簡潔，也許更容易閱讀：

library(data.table) 
d <- data.table(x) 

計算每次運行的長度：

d[ , n := .N, by = rleid(x)] 

對於「X」，這是零和前述和隨後的運行1是長度3，設置「x」的給1：

d[x == 0 & shift(n) == 3 & shift(n, type = "lead") == 3, x := 1] 
d$x 
# [1] 1 0 0 1 1 1 1 1 1 1 0 0 1 

Answer 2

下面是使用從rollapply動物園一個班輪：

library(zoo) 

rollapply(c(0, 0, 0, x, 0, 0, 0), 7, function(x) if (all(x[-4] == 1)) 1 else x[4]) 
## [1] 1 0 0 1 1 1 1 1 1 1 0 0 1 

注意：用於輸入是：

x <- c(1, 0, 0, 1, 1, 1, 0, 1, 1, 1, 0, 0, 1)