+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 

在這裏，我希望所有的列由+1，然後被替換的數字-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。這將重複值爲1和-1的所有a不是0.

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