回答編集履歴

1

Update

2022/05/26 14:16

投稿

melian
melian

スコア19618

test CHANGED
@@ -8,7 +8,7 @@
8
8
 
9
9
  dfx <- df %>%
10
10
  group_by(id) %>%
11
- filter(cummin(lead(num, default=-Inf) - num < 5) == 1)
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
- 4 2 1
24
+ 5 2 1
24
- 5 2 2
25
+ 6 2 2
25
- 6 2 3
26
+ 7 2 3
26
- 7 2 5
27
+ 8 2 5
27
- 8 2 6
28
+ 9 2 6
28
- 9 2 9
29
+ 10 2 9
29
- 10 2 10
30
+ 11 2 10
30
31
  ```
31
32
 
32
33