当多个变量分组时，对数据框中组内的行进行编号[重复]

Question

这个问题在这里已经有了答案：

组内连续和唯一编号4 个答案

如何添加新的分组变量3 个答案

组内唯一 ID 1 个答案

为组 dplyr 中的唯一值分配唯一编号？ (4 个回答)

4天前关闭。

是的，有几个与此类似的问题，但没有一个涉及多个分组变量，这导致这些问题的解决方案无法正常工作。 我能找到的最好的类似问题是：

1. 对数据框中组内的行进行编号，以及
2. 为每组数据帧中的行创建一个序号（计数器）[重复]

我的案例的虚拟数据：

library(dplyr)
df <- tibble(
    s1 = c("111", "111", "111", "112", "112", "114", "114", "115"),
    s2 = c(rep("A", 5), rep("B", 3)),
    val = rnorm(8)
)

我想在组s2中为s1提供分组 ID。 也就是说，我希望它在每次s2更改时重置。 期望的输出：

# A tibble: 8 x 4
  s1    s2        val    id
  <chr> <chr>   <dbl> <dbl>
1 111   A     -0.465      1
2 111   A      0.871      1
3 111   A      0.823      1
4 112   A      0.561      2
5 112   A      0.197      2
6 114   B     -0.743      1
7 114   B      0.0847     1
8 115   B     -1.05       2

类似问题的建议解决方案之一是

library(dplyr)
df %>% group_by(s1) %>% mutate(id = row_number())

但每次s1更改时都会重置。 同样，这些也不起作用：

df %>% group_by(s1, s2) %>% mutate(id = row_number())
df %>% group_by(s2) %>% mutate(id = row_number())
df %>% group_by(s1) %>% mutate(id = row_number(s2))
df %>% group_by(s1) %>% mutate(id = cur_group_id())
df %>% group_by(s1, s2) %>% mutate(id = cur_group_id())