使用dplyr，对于每组数据（group-by(group)），我们可以添加一个列，该列具有从1到每个group长度的计数器（即n()）。通过添加condition == 0的累积和，该计数器将在满足所需条件时再跳一次。

library(dplyr)

df1 %>% 
  group_by(group) %>% 
  mutate(desired = (1:n()) + cumsum(condition == 0))

* 输出：*

#> # A tibble: 14 x 3
#> # Groups:   group [3]
#>    group condition desired
#>    <dbl>     <dbl>   <int>
#>  1     1         1       1
#>  2     1         0       3
#>  3     1         1       4
#>  4     1         1       5
#>  5     2         1       1
#>  6     2         0       3
#>  7     2         0       5
#>  8     2         1       6
#>  9     2         1       7
#> 10     3         0       2
#> 11     3         1       3
#> 12     3         1       4
#> 13     3         0       6
#> 14     3         1       7

* 数据：*

df1 <- data.frame(group=c(1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3,3,3,3), 
                  condition=c(1,0,1,1,1,0,0,1,1,0,1,1,0, 1))

您可以：

transform(df, want =  ave(condition, group, FUN = function(x) cumsum(x + (x == 0) * 2 )))

   group condition want
1      1         1    1
2      1         0    3
3      1         1    4
4      1         1    5
5      2         1    1
6      2         0    3
7      2         0    5
8      2         1    6
9      2         1    7
10     3         0    2
11     3         1    3
12     3         1    4
13     3         0    6
14     3         1    7