回答編集履歴
1
Update
test
CHANGED
@@ -8,7 +8,7 @@
|
|
8
8
|
|
9
9
|
dfx <- df %>%
|
10
10
|
group_by(id) %>%
|
11
|
-
filter(cummin(l
|
11
|
+
filter(cummin(num - lag(num, default=Inf) < 5) == 1)
|
12
12
|
|
13
13
|
print(dfx)
|
14
14
|
|
@@ -20,13 +20,14 @@
|
|
20
20
|
1 1 1
|
21
21
|
2 1 2
|
22
22
|
3 1 3
|
23
|
+
4 1 4
|
23
|
-
|
24
|
+
5 2 1
|
24
|
-
|
25
|
+
6 2 2
|
25
|
-
|
26
|
+
7 2 3
|
26
|
-
|
27
|
+
8 2 5
|
27
|
-
|
28
|
+
9 2 6
|
28
|
-
|
29
|
+
10 2 9
|
29
|
-
1
|
30
|
+
11 2 10
|
30
31
|
```
|
31
32
|
|
32
33
|
|