如何打破排名差距的排名关系

我们可以补充一点 row_number() 分组后

library(dplyr)
data %>%
     group_by(orig) %>% 
     mutate(want = orig + row_number() - 1) %>%
     ungroup

-乌普图

# A tibble: 8 x 2
   orig  want
  <dbl> <dbl>
1     1     1
2     5     5
3     5     6
4     5     7
5    14    14
6    18    18
7    18    19
8    25    25

或者可以简化为 rowid data.table

library(data.table)
data %>% 
     mutate(want = orig + rowid(orig)-1)

使用 ave + seq_along

transform(
  data,
  want = orig + ave(orig, orig, FUN = seq_along) - 1
)

给予

  orig want
1    1    1
2    5    5
3    5    6
4    5    7
5   14   14
6   18   18
7   18   19
8   25   25