基于元素序列修改Vector

Question

如何转换以下向量:

x <- c(0, 0, 0, 1, 0, 3, 2, 0, 0, 0, 5, 0, 0, 0, 8)

进入所需的形式:

y <- c(1, 1, 1, 1, 3, 3, 2, 5, 5, 5, 5, 8, 8, 8, 8)

任何想法都将受到高度赞赏.

Answer 1

这是另一种仅使用基本 R 的方法：

idx <- x != 0
split(x, cumsum(idx) - idx) <- x[idx]

x 向量现在是：

x
#[1] 1 1 1 1 3 3 2 5 5 5 5 8 8 8 8