基于 elseif 条件的滚动累积产品

Question

我正在寻找一种在基于附加列的 ifelse 语句中进行滚动乘积的方法？

我的数据是这样的

    A    B   C 
 1  1    1   
 2  3    1   
 3  5    0
 4  7    0

等价的excel公式是

C3 = IF(B3=0,(1+A3/10)*C2,1)

我尝试过使用

ifelse(B==0,cumprod(c(1,(A[-1]/10+1))),1)

我无法让它在这种情况下工作，因为它总是只引用 A 列中的数据。

我希望得到以下结果

    A    B   C 
 1  1    1   1
 2  3    1   1
 3  5    0   1.5
 4  7    0   2.55

提前致谢

Answer 1

试试这个：

df$C <- cumprod(with(df, ifelse(B==0, A/10+1, 1)))

或者使用Reduce:

df$C <- Reduce('*', with(df, ifelse(B==0, A/10+1, 1)), accumulate = T)