r - 为 TRUE 值定义一个 "buffer"，如果在 "buffer"内，则将 TRUE 转换为 FALSE

Question

缓冲区表示TRUETRUE之后之后的最小位置，其中没有TRUE可以生存。

数据:

vec <- as.logical(c(1,0,1,1,1,0,1,1,0,1))

#[1]  TRUE FALSE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE FALSE  TRUE

不同缓冲区编号的示例:

buffer = 1
#[1]  TRUE FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE FALSE  TRUE

和

buffer = 2
#[1]  TRUE FALSE FALSE  TRUE FALSE FALSE  TRUE FALSE FALSE  TRUE

最后

buffer = 3
#[1]  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE

Answer 1

可能有更好的方法，但这里有一个选项，循环遍历 vec 的 TRUE 值:

changeTRUE <- function(vec, buffer){
                 first_TRUE <- which(vec)[1] # get the first TRUE value index
                 i <- 1 # just so we can move on other TRUE values later
                 while(first_TRUE < length(vec)){ # while there are some TRUE
                   vec[(first_TRUE+1):min((first_TRUE+buffer), length(vec))] <- FALSE # put FALSE after the TRUE value according to buffer value (but not further than the end of vec)
                   i <- i+1 # to go to next TRUE
                   first_TRUE <- which(vec)[i] # get next TRUE index...
                 }
                 return(vec)
             }

changeTRUE(vec, 1)
 [1]  TRUE FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE FALSE  TRUE
changeTRUE(vec, 2)
 [1]  TRUE FALSE FALSE  TRUE FALSE FALSE  TRUE FALSE FALSE  TRUE
changeTRUE(vec, 3)
 [1]  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE