R 如何将变量值重置为0作为起点？

我有一个里程表读数和以下不同汽车的样本数据。我打算将里程表的值重置为有效 以有效的方式测量他走过的距离

样本数据

ID      ODometer

1   2132
1   2133
1   2134
1   2135
1   2136
1   2137
2   1123
2   1124
2   1125

预期：

Expected Output

ID  Odometer
1   1
1   2
1   3
1   4
1   5
1   6
2   1
2   2
2   3  

---

按“ID”分组后，我们可以使用

行号（）

library(dplyr)
df1 %>%
   group_by(ID) %>%
   mutate(Odometer = row_number())
# A tibble: 9 x 3
# Groups:   ID [2]
#     ID ODometer Odometer
#  <int>    <int>    <int>
#1     1     2132        1
#2     1     2133        2
#3     1     2134        3
#4     1     2135        4
#5     1     2136        5
#6     1     2137        6
#7     2     1123        1
#8     2     1124        2
#9     2     1125        3

库（dplyr）
df1%>%
分组依据（ID）%>%
变异（里程表=行号（）
#一个tibble:9x3
#组别:ID[2]
#ID里程表里程表
#          
#1     1     2132        1
#2     1     2133        2
#3     1     2134        3
#4     1     2135        4
#5     1     2136        5
#6     1     2137        6
#7     2     1123        1
#8     2     1124        2
#9     2     1125        3

数据
df1您需要
table（df1$ID）
或
df1%>%dplyr:：count（ID）
@akrun我的道歉，更新了预期输出plz检查注意，在预期输出中看不到标题中重置为0
df1 <- structure(list(ID = c(1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L), 
  ODometer = c(2132L, 
 2133L, 2134L, 2135L, 2136L, 2137L, 1123L, 1124L, 1125L)), 
 class = "data.frame", row.names = c(NA, -9L))