R:删除重复值并将第一个值保留在二进制向量中

Question

我想删除重复的，但将第一个保留在二进制向量中:

x = c(0,0,1,1,0,1,0,1,1,1,0,1) # the input 
y = c(0,0,1,0,1,0,1,0,1)     # the desired output

即，一个 1和两个 1第一组和第三组的 1分别删除，并保留集合中的第一个。

我正在尝试使用 rle与 cumsum但还没有弄清楚。任何建议将不胜感激。

Answer 1

使用 rle/inverse.rle

res <- rle(x)
res$lengths[res$values == 1] <- 1
inverse.rle(res)
## [1] 0 0 1 0 1 0 1 0 1