538-wr-metrics.R

library(dplyr)

raw_metrics <- espnscrapeR::get_espn_wr_metrics()

raw_metrics |> glimpse()
  
raw_metrics |> 
  group_by(gsis_id) |> 
  summarise(across(c(overall:rtm_targets, yds), mean),
            across(ends_with("nm"), unique)) |> 
  mutate(score_rank = rank(overall), yds_rt = yds/rtm_routes) |> 
  filter(full_nm == "Chase Claypool") |> 
  select(full_nm, score_rank, overall:yac_score, yds_rt)

#> # A tibble: 1 × 7
#>     full_nm        score_rank overall open_score catch_score yac_score yds_rt
#>     <chr>               <dbl>   <dbl>      <dbl>       <dbl>     <dbl>  <dbl>
#>   1 Chase Claypool        240    55.2       57.4        46.8      54.2   1.79