許容範囲内の連続する数値のみを抽出

Question

Rを用いて以下のようなデータの抽出をしたいです。
また、dplyrやfor文を使っていただけますと幸いです

上記の画像のようなデータがあるとします。

numのn+1行目の数字がn行目の+5までの値の場合は抽出したいです。
+5以上になると以降のデータは必要ありません。
例えば、id1だと1,2,3,4まで抽出し、id2だと1,2,3,5,6,9,10の全てを抽出したいです。

様々試してみましたが、できませんでした。
ご教授いただけますと幸いです。

何卒よろしくお願い申し上げます。

Answer 1

suppressMessages(library(dplyr))

df <- data.frame(
  id = c(rep(1, 6), rep(2, 7)),
  num = c(1, 2, 3, 4, 11, 12, 1, 2, 3, 5, 6, 9, 10)
)

dfx <- df %>%
    group_by(id) %>%
    filter(cummin(num - lag(num, default=Inf) < 5) == 1)

print(dfx)

#
# A tibble: 10 × 2
# Groups:   id [2]
      id   num
   <dbl> <dbl>
 1     1     1
 2     1     2
 3     1     3
 4     1     4
 5     2     1
 6     2     2
 7     2     3
 8     2     5
 9     2     6
10     2     9
11     2    10

Comments

[iiist]

melian様
ご回答くださいまして、誠にありがとうございます。
いつも勉強させていただいております。

上記のコードを試してみたのですが、例のid1の4が消えて表示されてしまいました。
大変恐縮ではございますが、解決方法がありましたら再度ご教授いただければ幸いです。

何卒よろしくお願い申し上げます。

[melian]

はい、4 の次は 11 なので条件に当てはまりません。

[melian]

つまり、
> numのn+1行目の数字がn行目の+5までの値の場合は抽出したい
ではなく、
> numのn行目の数字がn-1行目の+5までの値の場合は抽出したい
ということでしょうか？ それでしたら 4 が含まれることになります。

[iiist]

> numのn行目の数字がn-1行目の+5までの値の場合は抽出したい
こちらの解釈が正しいです。
説明に間違いがあり大変申し訳ございません。

[melian]

というわけで回答を更新しました。

[iiist]

お手数をかけしまして大変申し訳ございません。
再度ご回答くださいまして、誠にありがとうございます。