r - 列のデータを識別し、+1 と -1 で置き換えます

Question

1 列の 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 のすべての数値を、0 を除いてそれぞれ +1 と -1 に置き換えたいと考えています。a列を次のようにしたいと考えています。

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

同様の質問をしたことがありますが、これは正確な重複ではありません。

Answer 1

データ フレームの名前がdf. これにより、0 以外のすべての値に対して 1 と -1 が繰り返されますa。

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