r - R dplyr ウィンドウ ベースの機能を抽出する方法

Question

私はこのことをどのように機能させることができるのだろうかと思っています:

features_windows <- function(data, window_size) {
  data_with_feature <- data %>%
    mutate(window_one = nrow(data[data$ID<ID & data$key==key & data$ID > ID - window_size,]))
   data_with_feature
}

基本的に、新しい機能は、タイム ウィンドウ ID-window_size : ID とキーの中にどれだけのポイントがあるかです。現在、私はどこでも 0 を取得しています。R では for ループはひどいアイデアです。何かアイデアはありますか?

よろしく、T