
Summarise Strokes Gained by Round, Event or Season
Source:R/calculate_strokes_gained.R
summarise_strokes_gained.RdAdds up shot-level strokes gained from [calculate_strokes_gained()] and adjusts each category to the field: in every round, each category is measured against the average of the players on the same course, so the four categories add up to the total and a round's total equals the strokes the player beat the field average by. Only complete 18-hole rounds are used, and team events (Zurich Classic, Presidents Cup) are left out.
Usage
summarise_strokes_gained(sg, by = c("round", "tournament", "season"))Value
A tibble with player_id, player_name (when present),
grouping columns, rounds, and sg_ott, sg_app,
sg_arg, sg_putt, sg_t2g and sg_total.
Examples
# \donttest{
sg <- calculate_strokes_gained(load_shots(2026, "Sony"))
summarise_strokes_gained(sg, by = "tournament")
#> # A tibble: 120 × 11
#> season tournament_id player_id player_name rounds sg_ott sg_app sg_arg
#> <int> <chr> <chr> <chr> <int> <dbl> <dbl> <dbl>
#> 1 2026 R2026006 59095 Chris Gotterup 4 0.775 0.226 0.715
#> 2 2026 R2026006 59018 Ryan Gerard 4 0.552 1.50 0.319
#> 3 2026 R2026006 36699 Patrick Rodgers 4 0.333 1.27 -0.0371
#> 4 2026 R2026006 52215 Robert MacIntyre 4 0.216 1.88 -0.0597
#> 5 2026 R2026006 60004 Jacob Bridgeman 4 -0.0214 0.513 0.399
#> 6 2026 R2026006 40026 Daniel Berger 4 0.0803 1.29 -0.226
#> 7 2026 R2026006 40250 Taylor Pendrith 4 -0.141 0.625 0.691
#> 8 2026 R2026006 47995 Davis Riley 4 -0.562 -0.567 0.373
#> 9 2026 R2026006 57975 Harry Hall 4 0.714 0.659 0.118
#> 10 2026 R2026006 54628 Lee Hodges 4 -0.0367 0.199 -0.0404
#> # ℹ 110 more rows
#> # ℹ 3 more variables: sg_putt <dbl>, sg_t2g <dbl>, sg_total <dbl>
# }