Come costruire questa variabile binaria in R?

Question

L'obiettivo è controllare se il valore di indice i è 1 e quindi apportare le precedenti sei voci come 1.

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

## Required output 
y <- c(1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1) 

## Attempt 
for(j in seq_along(x)){ 
if(x[j] == 1){ 
    for(i in (j-6):j) 
    x[i] = 1 
    }} 

Potrebbe aiutare a risolvere questo o meglio approccio?

Grazie.

Answer 1

utilizzo 'per' ciclo:

ddf = data.frame(x,y=0) 
for(i in 1:nrow(ddf)){ 
    if(ddf[i,'x']==1){ 
     j = i-5 
     if(j<1) j=1 
     ddf[j:i,'y'] = 1 
    } 
} 
ddf 
    x y 
1 0 1 
2 0 1 
3 0 1 
4 1 1 
5 0 0 
6 0 0 
7 0 0 
8 0 0 
9 0 0 
10 0 0 
11 0 0 
12 0 1 
13 0 1 
14 0 1 
15 0 1 
16 0 1 
17 1 1 
18 0 1 
19 1 1 

y = ddf$y 
y 
[1] 1 1 1 1 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 

Answer 2

y<-x 
y[unlist(sapply(which(x==1), 
       function(val){ 
        val:(max(val-6,1)) 
       } 
       ) 
     ) 
    ]<-1 

> y 
[1] 1 1 1 1 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 

Spiegazione:

ho guardo per gli indici di x = 1 con which(x==1). Quindi, per ciascuno degli indici ottengo gli indici da quello con x = 1 al sesto prima di quello con sapply(...) quindi non elenco il risultato per avere solo un vettore di indici per cui y deve essere 1. Ho quindi assegnato 1 a i corrispondenti valori y

un altro scritto, in 2 fasi:

y<-x 
ind<-unlist(sapply(which(x==1),function(val){val:(max(val-6,1))})) 
y[ind]<-1 

> y 
[1] 1 1 1 1 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 

Answer 3

si potrebbe provare le seguenti opzioni (anche se non dimenticate di inizializzare x quando si cerca ogni opzione come sto ignorando esso)

indx <- mapply(function(x, y) x:y, which(x == 1) - 6 , which(x == 1)) 
x[indx[indx > 0]] <- 1 
x 
## [1] 1 1 1 1 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 

O ancora più semplice

indx <- sapply(which(x == 1) - 6, function(x) x:(x + 6)) 
x[indx[indx > 0]] <- 1 
x 
## [1] 1 1 1 1 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 

O

indx <- apply(cbind(which(x == 1) - 6 , which(x == 1)), 1, function(x) x[1]:x[2]) 
x[indx[indx > 0]] <- 1 
x 
## [1] 1 1 1 1 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 

O

indx <- seq_len(6) 
indx <- sapply(which(x == 1), function(x) x - indx) 
x[indx[indx > 0]] <- 1 
x 
## [1] 1 1 1 1 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 

Answer 4

Una soluzione completamente vettorizzati utilizzando filter:

as.integer(#turn logical value into numbers 
    as.logical(#coerce to logical --> 0 becomes FALSE, everything else TRUE 
    rev(#reverse order 
    filter(#linear filtering 
     c(rep(0, 6), #pad with zeros in the beginning to avoid NAs 
     rev(x)), #revers order of input vector 
      c(rep(1, 7)), sides=1 #y_i = x_i * 1 + x_(i-1) * 1 +...+ x_(i-6) * 1 
)[-(1:6)]))) #remove NA values 

#[1] 1 1 1 1 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1