替换数据框中的值，直到匹配给定值

Question

我有数百个具有以下结构的数据框：

df <- data.frame(yr=seq(0,20,1), op=c(0,1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6,7,8,9,10))

我想自动替换op列的初始部分，因为该序列将从向量的末尾继续，但一直到第二个0值为止。

结果应该是这样的：

df.result <- data.frame(yr=seq(0,20,1), op=c(11,12,13,14,15,16,17,18,19,20,0,1,2,3,4,5,6,7,8,9,10))

它必须是动态的，因为顺序都不同。 使用无需循环的功能快速完成此操作的任何技巧？

提前致谢！

Answer 1

这是一种方法：

transform(df, op = replace(op, cumsum(!op) < 2, seq(which(!op)[2] - 1) + tail(op, 1)))