starting field goals and punt stats

player_stats_kicking.R

# Field Goals
library(nflreadr)
library(tidyverse)

base_kicks <- load_pbp(1999:2020) %>% 
  filter(field_goal_attempt == 1 | extra_point_attempt == 1) %>% 
  select(
    season,
    week,
    season_type,
    team = posteam,
    player_name = kicker_player_name,
    player_id = kicker_player_id,
    kick_distance,
    field_goal_attempt,
    extra_point_attempt,
    field_goal_result,
    extra_point_result
  ) %>% 
  group_by(season,week,season_type,team,player_name,player_id) %>% 
  summarise(
    fg_made = sum(field_goal_result == "made", na.rm = TRUE),
    fg_missed = sum(field_goal_result == "missed", na.rm = TRUE),
    fg_blocked = sum(field_goal_result == "blocked", na.rm = TRUE),
    fg_long = max(as.numeric(field_goal_result == "made") * kick_distance,0, na.rm = TRUE),
    pat_made = sum(extra_point_result == "good", na.rm = TRUE),
    pat_missed = sum(extra_point_result == "failed", na.rm = TRUE),
    pat_blocked = sum(extra_point_result == "blocked", na.rm = TRUE),
    fg_made_distance = sum(as.numeric(field_goal_result == "made") * kick_distance, na.rm = TRUE),
    fg_missed_distance = sum(as.numeric(field_goal_result == "missed") * kick_distance, na.rm = TRUE),
    fg_blocked_distance = sum(as.numeric(field_goal_result == "blocked") * kick_distance, na.rm = TRUE),
    fg_made_0_19 = sum(as.numeric(field_goal_result == "made") * between(kick_distance,0,19), na.rm = TRUE),
    fg_made_20_29 = sum(as.numeric(field_goal_result == "made") * between(kick_distance,20,29), na.rm = TRUE),
    fg_made_30_39 = sum(as.numeric(field_goal_result == "made") * between(kick_distance,30,39), na.rm = TRUE),
    fg_made_40_49 = sum(as.numeric(field_goal_result == "made") * between(kick_distance,40,49), na.rm = TRUE),
    fg_made_50_ = sum(as.numeric(field_goal_result == "made") * (kick_distance >=50), na.rm = TRUE),
    fg_missed_0_19 = sum(as.numeric(field_goal_result == "missed") * between(kick_distance,0,19), na.rm = TRUE),
    fg_missed_20_29 = sum(as.numeric(field_goal_result == "missed") * between(kick_distance,20,29), na.rm = TRUE),
    fg_missed_30_39 = sum(as.numeric(field_goal_result == "missed") * between(kick_distance,30,39), na.rm = TRUE),
    fg_missed_40_49 = sum(as.numeric(field_goal_result == "missed") * between(kick_distance,40,49), na.rm = TRUE),
    fg_missed_50_ = sum(as.numeric(field_goal_result == "missed") * (kick_distance >=50), na.rm = TRUE),
    fg_made_list = kick_distance[field_goal_result == "made"] %>% na.omit() %>%  paste(collapse = ";"),
    fg_missed_list = kick_distance[field_goal_result == "missed"] %>% na.omit() %>% paste(collapse = ";"),
    fg_blocked_list = kick_distance[field_goal_result == "blocked"] %>% na.omit() %>% paste(collapse = ";")
  ) %>% 
  ungroup()

game_winners <- load_pbp(2000:2020) %>% 
  group_by(game_id,posteam) %>% 
  filter(fixed_drive == max(fixed_drive)) %>% 
  ungroup() %>% 
  filter(field_goal_attempt == 1, between(score_differential,-2,0)) %>% 
  select(
    season,
    week,
    season_type,
    team = posteam,
    qtr,
    game_seconds_remaining,
    score_differential,
    desc,
    player_name = kicker_player_name,
    player_id = kicker_player_id,
    kick_distance,
    field_goal_attempt,
    extra_point_attempt,
    field_goal_result,
    extra_point_result
  ) %>% 
  group_by(season,week,season_type,team,player_name,player_id) %>% 
  summarise(
    gwfg_att = n(),
    gwfg_distance = kick_distance,
    gwfg_made = sum(field_goal_result == "made", na.rm = TRUE),
    gwfg_missed = sum(field_goal_result == "missed", na.rm = TRUE),
    gwfg_blocked = sum(field_goal_result == "blocked", na.rm = TRUE),
  ) %>% 
  ungroup()

full_kicks <- base_kicks %>% 
  left_join(
    game_winners, 
    by = c("season", "week", "season_type", "team", "player_name", "player_id")) %>% 
  mutate(
    across(starts_with("gwfg"),replace_na,0)
  ) %>% 
  relocate(
    starts_with("gwfg"),
    .after = fg_blocked_distance
  )

write

TODO: a game winning field goal calculation?

GWFG = "a kick attempt on the final possession for their team in the game AND score_differential < 3"

Did GWFG.

Now TODO: punts?

Also added a string-separated-list with individual kick data for ffscrapr purposes