R：识别出一个“1”后，重复（结转）“1”直到ID的记录结束

Question

我有一个带有“id”和“rec”的小标题：

a <- tibble(id = c(1,1,1,1,1,2,2,2,2,2,3,3,3,3,3),
            rec = c(0,0,1,1,0,0,1,0,0,0,0,1,0,1,0))
a

我需要创建另一个列（这里称为“result”），因此“result”列的值将等于“rec”，或者在“rec”列中找到“1”后， “1”代表以下所有行，直到该“id”的向量结束，如下所示：

b <- tibble(a, result = c(0,0,1,1,1,0,1,1,1,1,0,1,1,1,1))
b

有没有办法使用 tidyverse 方式来做到这一点？，比如：

a %>% group_by(id) %>% mutate(result = ...) %>% ungroup()

Answer 1

cummax在按'id'分组后可能需要

library(dplyr)
a <- a %>% 
    group_by(id) %>% 
    mutate(result = cummax(rec)) %>%
    ungroup