我有两列如下:
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
在这里我们可以看到有很多重复的元素,即。它们是重复的。我想要一个代码,它可以替换除第一个元素之外的所有连续且重复的元素 0。我需要的结果是
a<- c(1,0,0,2,3,2,0,0,0,1,0,0,0,0,2,3,4,0,1,0)
我已经尝试了我从之前的帖子中学到的东西
ifelse(data$a == c(data$a[1]-1,data$a[(1:length(data$a)-1)]) , 0 , data$a)
我也试过
data$a<- replace(data$a, duplicated(c(0, cumsum(abs(diff(data$a))))), 0)
但是这两个代码都不能在 xts 中工作。尽管上述代码都适用于法线向量。