gpt4 book ai didi

r - 识别并替换列向量中的重复项

转载 作者:行者123 更新时间:2023-12-04 02:49:15 25 4
gpt4 key购买 nike

<分区>

我有两列如下:

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 中都不起作用。虽然上面提到的代码都适用于法向量。

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com