r - 在向量中分配值

Question

我有一个带有许多零的向量。

v <- c(3,0,0,5,0,0,0,10,0,0,0,0)

我想向前分配非零数字，并用平均值替换非零数字之前的所有内容。
例如，应将(3,0,0)替换为(1,1,1)。
(3 + 0 + 0)/3 = 1
v应该变成

(1,1,1,1.25,1.25,1.25,1.25,2,2,2,2,2)

有功能可以做到这一点吗？

Answer 1

您正在寻找函数ave

ave(v, cumsum(v))
[1] 1.00 1.00 1.00 1.25 1.25 1.25 1.25 2.00 2.00 2.00 2.00 2.00