识别并替换列的数据+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和-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。对于非0的所有a，这将重复值1和-1。

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