r - 如何获得最后一个非零元素的位置

Question

我有一个二进制变量，表示事件是否发生:

event <- c(0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0)

我需要获取一个变量，该变量指示上一次事件发生的时间。预期的输出将是:

last_event <- c(0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 5, 5, 13, 13, 13, 13)

我如何用底数R，tidyverse或任何其他方式获得它？

Answer 1

利用您具有二进制 vector 的事实，以下给出了所需的输出:

cummax(seq_along(event) * event)