확인하고 대체 열의 데이터를 +1로 -1

Question

내가 한 열 XTS 목적이 있습니다 내가 원하는 여기

a <- c(1,1,1,2,3,2,2,2,2,1,0,0,0,0,2,3,4,4,1,1) 
date <- Sys.Date()-20:1 
data <- xts(a,date) 
colnames(data) <- "a" 
data 

를 A는 다음 하나에 의해 대체 될 수있는 열에서 모든 숫자 -1 각각 0을 제외하고 나는 a 열이 같이 할 :

1,-1,1,-1,1,-1,1,-1,1,-1,0,0,0,0,1,-1,1,-1,1,-1 

내가 요청했습니다 비슷한 질문, 그러나 이것은 정확한 중복되지 않습니다.

Answer 1

데이터 프레임의 이름이 df이라고 가정합니다. 모든 a에 대해 값 1과 -1이 반복됩니다.

df[a!=0,]<-c(1,-1)