앞의 행에 새 데이터 프레임을 추가하는 방법! R

Question

나는 다음 방법으로 약 보이는 날짜 프레임이 있습니다

x<-c(0,0,0,0,0,1,1,1,0,1,0) 
y<-c(12,12,3,45,6,5,63,2,3,4,5) 
z<-data.frame(x,y) 
z 
# x y 
#1 0 12 
#2 0 12 
#3 0 3 
#4 0 45 
#5 0 6 
#6 1 5 
#7 1 63 
#8 1 2 
#9 0 3 
#10 1 4 
#11 0 5 

내가 1에 동일 x의 행을 찾을 함수 나 루프를 실행하고 새로운 데이터 프레임에 추가 할을이 행과 4 개의 앞의 행.

하여 인덱스 생성 할

Answer 1

작은 수정과 @ user1981275 용액에 작은 리프가

l <- lapply(which(z$x==1), function(x) { 
    z[(ifelse(x-4 < 1, 1, x-4)):x,] 
}) 
do.call(rbind, l) 

Answer 2

: 선행하는 행이없는 경우

가

z[sapply(which(as.logical(z$x)), function(x) seq(x - 4, x)), ]