r - 用 +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. 这将为所有a非 0 重复值 1 和 -1。

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