Functions have been added to fitzRoy to scrape and analyse AFLCA coaches votes.
fetch_coaches_votes - returns all AFLCA coaches votes
for given season/s, round/s, and/or team’s matches.calculate_coaches_vote_possibilities - returns all
possible breakdowns of coaches votes between two coaches, given a data
frame like the one returned by fetch_coaches_votes.The fetch_coaches_votes function accepts 4 arguments.
The season, round_number and comp
arguments are common to the core fetch_* functions as per
the Main
Fetch Functions Vignette.
season - the season or seasons to return data from. If
NULL (the default), will return the season that matches
Sys.Date()
round_number- the round to return data from. If NULL
(the default), will return data from all roundscomp - the competition to return data from. Must be one
of “AFLM” (default) or “AFLW”. Not all data sources will have AFLW
data.team - the team/s whose matches to include. If NULL
(the default), will return data from all teams.The following are some examples of ways to scrape the AFLCA coaches votes. Firstly, coaches votes can be retrieved for a season (or an array of seasons).
fetch_coaches_votes(season = 2021, comp = "AFLM") %>% head()#> Season Round Home.Team Away.Team Player.Name Coaches.Votes
#> 1.1 2021 1 Richmond Carlton Dustin Martin (RICH) 10
#> 1.2 2021 1 Richmond Carlton Jack Graham (RICH) 7
#> 1.3 2021 1 Richmond Carlton Samuel Walsh (CARL) 6
#> 1.4 2021 1 Richmond Carlton Jack Riewoldt (RICH) 5
#> 1.5 2021 1 Richmond Carlton Patrick Cripps (CARL) 1
#> 1.6 2021 1 Richmond Carlton Kane Lambert (RICH) 1We can also return votes for AFLW.
fetch_coaches_votes(season = 2021, comp = "AFLW") %>% head()#> Season Round Home.Team Away.Team Player.Name Coaches.Votes
#> 1.1 2021 1 Carlton Collingwood Brittany Bonnici (COLL) 9
#> 1.2 2021 1 Carlton Collingwood Jaimee Lambert (COLL) 5
#> 1.3 2021 1 Carlton Collingwood Madison Prespakis (CARL) 4
#> 1.4 2021 1 Carlton Collingwood Ruby Schleicher (COLL) 4
#> 1.5 2021 1 Carlton Collingwood Stacey Livingstone (COLL) 4
#> 1.6 2021 1 Carlton Collingwood Jess Hosking (CARL) 2We can return just one round instead of the whole fixture.
fetch_coaches_votes(season = 2021, round_number = 24, comp = "AFLM")#> Season Round Home.Team Away.Team Player.Name
#> 29.1 2021 24 Port Adelaide Geelong Cats Travis Boak (PORT)
#> 29.2 2021 24 Port Adelaide Geelong Cats Ollie Wines (PORT)
#> 29.3 2021 24 Port Adelaide Geelong Cats Aliir Aliir (PORT)
#> 29.4 2021 24 Port Adelaide Geelong Cats Tom Jonas (PORT)
#> 29.5 2021 24 Port Adelaide Geelong Cats Orazio Fantasia (PORT)
#> 29.6 2021 24 Port Adelaide Geelong Cats Jack Henry (GEEL)
#> Coaches.Votes
#> 29.1 9
#> 29.2 7
#> 29.3 6
#> 29.4 3
#> 29.5 3
#> 29.6 2
fetch_coaches_votes(season = 2021, round_number = 9, comp = "AFLW")#> Season Round Home.Team Away.Team Player.Name Coaches.Votes
#> 9.1 2021 9 Western Bulldogs Richmond Kirsty Lamb (WB) 10
#> 9.2 2021 9 Western Bulldogs Richmond Brooke Lochland (WB) 8
#> 9.3 2021 9 Western Bulldogs Richmond Ellie Blackburn (WB) 5
#> 9.4 2021 9 Western Bulldogs Richmond Katie Brennan (RICH) 4
#> 9.5 2021 9 Western Bulldogs Richmond Rebecca Miller (RICH) 2
#> 9.6 2021 9 Western Bulldogs Richmond Eleanor Brown (WB) 1We could also return coaches votes for matches including a particular team.
fetch_coaches_votes(season = 2021, comp = "AFLM", team = "Western Bulldogs")#> Season Round Home.Team Away.Team Player.Name
#> 1.7 2021 1 Collingwood Western Bulldogs Bailey Smith (WB)
#> 1.8 2021 1 Collingwood Western Bulldogs Darcy Moore (COLL)
#> 1.9 2021 1 Collingwood Western Bulldogs Bailey Williams (WB)
#> 1.10 2021 1 Collingwood Western Bulldogs Jack Macrae (WB)
#> 1.11 2021 1 Collingwood Western Bulldogs Laitham Vandermeer (WB)
#> 1.12 2021 1 Collingwood Western Bulldogs Alex Keath (WB)
#> Coaches.Votes
#> 1.7 10
#> 1.8 8
#> 1.9 4
#> 1.10 4
#> 1.11 3
#> 1.12 1
fetch_coaches_votes(season = 2021, comp = "AFLW", team = "Western Bulldogs")#> Season Round Home.Team Away.Team Player.Name
#> 1.8 2021 1 St Kilda Western Bulldogs Georgia Patrikios (STK)
#> 1.9 2021 1 St Kilda Western Bulldogs Ellie Blackburn (WB)
#> 1.10 2021 1 St Kilda Western Bulldogs Tarni White (STK)
#> 1.11 2021 1 St Kilda Western Bulldogs Kirsty Lamb (WB)
#> 1.12 2021 1 St Kilda Western Bulldogs Tyanna Smith (STK)
#> 1.13 2021 1 St Kilda Western Bulldogs Isabel Huntington (WB)
#> Coaches.Votes
#> 1.8 10
#> 1.9 8
#> 1.10 6
#> 1.11 2
#> 1.12 2
#> 1.13 2Combining these, we can return coaches votes for a single match.
fetch_coaches_votes(season = 2021, round_number = 24, comp = "AFLM", team = "Western Bulldogs")#> Season Round Home.Team Away.Team Player.Name
#> 29.20 2021 24 Western Bulldogs Essendon Tom Liberatore (WB)
#> 29.21 2021 24 Western Bulldogs Essendon Jack Macrae (WB)
#> 29.22 2021 24 Western Bulldogs Essendon Marcus Bontempelli (WB)
#> 29.23 2021 24 Western Bulldogs Essendon Cody Weightman (WB)
#> 29.24 2021 24 Western Bulldogs Essendon Darcy Parish (ESS)
#> 29.25 2021 24 Western Bulldogs Essendon Aaron Naughton (WB)
#> Coaches.Votes
#> 29.20 7
#> 29.21 6
#> 29.22 5
#> 29.23 5
#> 29.24 4
#> 29.25 2
fetch_coaches_votes(season = 2021, round_number = 9, comp = "AFLW", team = "Western Bulldogs")#> Season Round Home.Team Away.Team Player.Name Coaches.Votes
#> 9.1 2021 9 Western Bulldogs Richmond Kirsty Lamb (WB) 10
#> 9.2 2021 9 Western Bulldogs Richmond Brooke Lochland (WB) 8
#> 9.3 2021 9 Western Bulldogs Richmond Ellie Blackburn (WB) 5
#> 9.4 2021 9 Western Bulldogs Richmond Katie Brennan (RICH) 4
#> 9.5 2021 9 Western Bulldogs Richmond Rebecca Miller (RICH) 2
#> 9.6 2021 9 Western Bulldogs Richmond Eleanor Brown (WB) 1The calculate_coaches_vote_possibilities function
accepts two arguments.
df - a data frame which requires column names
Player.Name, Coaches.Votes. This can be
returned from the fetch_coaches_votes function. The votes
can only be from a single match.output_type - the way to present the results.
"Coach View" Will provide a list of data frames with
possible votes by coach. "Player View" will provide a list
of data frames with possible votes by player. See the examples section
for how these data frames look.The following code will return the coaches votes for a particular match, then find the possible coaches vote breakdowns.
df <- fetch_coaches_votes(season = 2021, round_number = 24, comp = "AFLM", team = "Western Bulldogs")
calculate_coaches_vote_possibilities(df, "Coach View")#> [[1]]
#> Votes C1 C2
#> 1 5 Cody Weightman (WB) Tom Liberatore (WB)
#> 2 4 Darcy Parish (ESS) Marcus Bontempelli (WB)
#> 3 3 Jack Macrae (WB) Jack Macrae (WB)
#> 4 2 Tom Liberatore (WB) Aaron Naughton (WB)
#> 5 1 Marcus Bontempelli (WB) Jordan Ridley (ESS)
#>
#> [[2]]
#> Votes C1 C2
#> 1 5 Cody Weightman (WB) Jack Macrae (WB)
#> 2 4 Darcy Parish (ESS) Tom Liberatore (WB)
#> 3 3 Tom Liberatore (WB) Marcus Bontempelli (WB)
#> 4 2 Marcus Bontempelli (WB) Aaron Naughton (WB)
#> 5 1 Jack Macrae (WB) Jordan Ridley (ESS)
#>
#> [[3]]
#> Votes C1 C2
#> 1 5 Marcus Bontempelli (WB) Tom Liberatore (WB)
#> 2 4 Darcy Parish (ESS) Cody Weightman (WB)
#> 3 3 Jack Macrae (WB) Jack Macrae (WB)
#> 4 2 Tom Liberatore (WB) Aaron Naughton (WB)
#> 5 1 Cody Weightman (WB) Jordan Ridley (ESS)
#>
#> [[4]]
#> Votes C1 C2
#> 1 5 Marcus Bontempelli (WB) Jack Macrae (WB)
#> 2 4 Darcy Parish (ESS) Tom Liberatore (WB)
#> 3 3 Tom Liberatore (WB) Cody Weightman (WB)
#> 4 2 Cody Weightman (WB) Aaron Naughton (WB)
#> 5 1 Jack Macrae (WB) Jordan Ridley (ESS)
#>
#> [[5]]
#> Votes C1 C2
#> 1 5 Cody Weightman (WB) Jack Macrae (WB)
#> 2 4 Tom Liberatore (WB) Darcy Parish (ESS)
#> 3 3 Marcus Bontempelli (WB) Tom Liberatore (WB)
#> 4 2 Aaron Naughton (WB) Marcus Bontempelli (WB)
#> 5 1 Jack Macrae (WB) Jordan Ridley (ESS)
#>
#> [[6]]
#> Votes C1 C2
#> 1 5 Marcus Bontempelli (WB) Jack Macrae (WB)
#> 2 4 Tom Liberatore (WB) Darcy Parish (ESS)
#> 3 3 Cody Weightman (WB) Tom Liberatore (WB)
#> 4 2 Aaron Naughton (WB) Cody Weightman (WB)
#> 5 1 Jack Macrae (WB) Jordan Ridley (ESS)
#>
#> [[7]]
#> Votes C1 C2
#> 1 5 Cody Weightman (WB) Marcus Bontempelli (WB)
#> 2 4 Jack Macrae (WB) Tom Liberatore (WB)
#> 3 3 Tom Liberatore (WB) Darcy Parish (ESS)
#> 4 2 Aaron Naughton (WB) Jack Macrae (WB)
#> 5 1 Darcy Parish (ESS) Jordan Ridley (ESS)
#>
#> [[8]]
#> Votes C1 C2
#> 1 5 Marcus Bontempelli (WB) Cody Weightman (WB)
#> 2 4 Jack Macrae (WB) Tom Liberatore (WB)
#> 3 3 Tom Liberatore (WB) Darcy Parish (ESS)
#> 4 2 Aaron Naughton (WB) Jack Macrae (WB)
#> 5 1 Darcy Parish (ESS) Jordan Ridley (ESS)
#>
#> [[9]]
#> Votes C1 C2
#> 1 5 Tom Liberatore (WB) Marcus Bontempelli (WB)
#> 2 4 Darcy Parish (ESS) Cody Weightman (WB)
#> 3 3 Jack Macrae (WB) Jack Macrae (WB)
#> 4 2 Aaron Naughton (WB) Tom Liberatore (WB)
#> 5 1 Cody Weightman (WB) Jordan Ridley (ESS)
#>
#> [[10]]
#> Votes C1 C2
#> 1 5 Tom Liberatore (WB) Cody Weightman (WB)
#> 2 4 Darcy Parish (ESS) Marcus Bontempelli (WB)
#> 3 3 Jack Macrae (WB) Jack Macrae (WB)
#> 4 2 Aaron Naughton (WB) Tom Liberatore (WB)
#> 5 1 Marcus Bontempelli (WB) Jordan Ridley (ESS)The following code will create a data frame manually, then find the possible coaches vote breakdowns.
df <- data.frame(
Player.Name = c("Tom Liberatore", "Jack Macrae", "Marcus Bontempelli", "Cody Weightman", "Darcy Parish", "Aaron Naughton", "Jordan Ridley"),
Coaches.Votes = c(7, 6, 5, 5, 4, 2, 1)
)
calculate_coaches_vote_possibilities(df, "Player View")
#> [[1]]
#> Player V1 V2
#> 1 Tom Liberatore 2 5
#> 2 Cody Weightman 0 5
#> 3 Marcus Bontempelli 1 4
#> 4 Darcy Parish 0 4
#> 5 Jack Macrae 3 3
#> 6 Aaron Naughton 0 2
#> 7 Jordan Ridley 0 1
#>
#> [[2]]
#> Player V1 V2
#> 1 Jack Macrae 1 5
#> 2 Cody Weightman 0 5
#> 3 Tom Liberatore 3 4
#> 4 Darcy Parish 0 4
#> 5 Marcus Bontempelli 2 3
#> 6 Aaron Naughton 0 2
#> 7 Jordan Ridley 0 1
#>
#> [[3]]
#> Player V1 V2
#> 1 Tom Liberatore 2 5
#> 2 Marcus Bontempelli 0 5
#> 3 Cody Weightman 1 4
#> 4 Darcy Parish 0 4
#> 5 Jack Macrae 3 3
#> 6 Aaron Naughton 0 2
#> 7 Jordan Ridley 0 1
#>
#> [[4]]
#> Player V1 V2
#> 1 Jack Macrae 1 5
#> 2 Marcus Bontempelli 0 5
#> 3 Tom Liberatore 3 4
#> 4 Darcy Parish 0 4
#> 5 Cody Weightman 2 3
#> 6 Aaron Naughton 0 2
#> 7 Jordan Ridley 0 1
#>
#> [[5]]
#> Player V1 V2
#> 1 Cody Weightman 0 5
#> 2 Marcus Bontempelli 0 5
#> 3 Tom Liberatore 3 4
#> 4 Jack Macrae 2 4
#> 5 Darcy Parish 1 3
#> 6 Aaron Naughton 0 2
#> 7 Jordan Ridley 0 1