r-按组替换序列号

Question

让我们考虑一下有以下数据帧：

日期2021-09-30a12021-09-302021-09-302021-12-31年2021-12-31年2021-12-312022-03-312022-03-312022-03-31

Answer 1

您可以使用dplyr::cur_group_id()来完成此工作。

library(dplyr)
df %>% 
group_by(date) %>% 
mutate(new_counter = cur_group_id())
# A tibble: 9 × 4
# Groups:   date [3]
date       x     counter new_counter
<chr>      <chr>   <int>       <int>
1 2021-09-30 a           1           1
2 2021-09-30 b           2           1
3 2021-09-30 c           3           1
4 2021-12-31 e           1           2
5 2021-12-31 f           2           2
6 2022-03-31 g           3           3
7 2022-03-31 t           1           3
8 2022-03-31 u           2           3
9 2022-03-31 z           3           3