r - 给重复的数字序列贴上标签。

Question

假设我有一个 data.frame，其重复值的长度不等，最大序列长度为 6。

location = c(1:6, 1:4, 1:6, 1:3) 
data.frame(location = location)

   location
1      1
2      2
3      3
4      4
5      5
6      6
7      1
8      2
9      3
10     4
11     1
12     2
13     3
14     4
15     5
16     6
17     1
18     2
19     3

我将如何为每个组分配标签，如下所示:

 location     batch
1      1  a
2      2  a
3      3  a
4      4  a
5      5  a
6      6  a
7      1  b
8      2  b
9      3  b
10     4  b
11     1  c
12     2  c
13     3  c
14     4  c
15     5  c
16     6  c
17     1  d
18     2  d
19     3  d

Answer 1

您可以通过以下方式创建数字分组变量:

dat$batch <- c(0L, cumsum(diff(dat$location) < 1))


   location batch
1         1     0
2         2     0
3         3     0
4         4     0
5         5     0
6         6     0
7         1     1
8         2     1
9         3     1
10        4     1
11        1     2
12        2     2
13        3     2
14        4     2
15        5     2
16        6     2
17        1     3
18        2     3
19        3     3