分配组id在R中从0开始，以1结束

你可以简单地在基数R中使用ave:

with(DT, ave(v1, c(0, cumsum(v1)[-length(v1)])， FUN = seq_along))

#[1] 1 2 3 4 1 2 3

或者如果你也想在dplyr中，你可以使用lag()来创建组，你可以在每个组中分配行号:

库(dplyr)

DT %>% group_by(gr = lag(cumsum(v1)， default = 0)) %>% mutate(ID = row_number())