ussie
ussie.Rmd
library(ussie)
library(dplyr)
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> intersect, setdiff, setequal, unionThe goal of ussie is to help you work with European Football League data. It uses data from the engsoccerdata package.
We can create a matches tibble using raw data from engsoccerdata:
italy <- uss_make_matches(engsoccerdata::italy, "italy")
glimpse( italy )
#> Rows: 25,404
#> Columns: 8
#> $ country <chr> "italy", "italy", "italy", "italy", "italy", "italy", "i…
#> $ tier <fct> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,…
#> $ season <int> 1934, 1934, 1934, 1934, 1934, 1934, 1934, 1934, 1934, 19…
#> $ date <date> 1934-09-30, 1934-09-30, 1934-09-30, 1934-09-30, 1934-09…
#> $ home <chr> "Lazio Roma", "Torino FC", "Sampierdarenese", "SSC Napol…
#> $ visitor <chr> "US Livorno", "Unione Triestina", "Bologna FC", "US Ales…
#> $ goals_home <int> 6, 3, 2, 0, 4, 0, 3, 1, 1, 1, 2, 4, 2, 2, 3, 2, 2, 2, 0,…
#> $ goals_visitor <int> 1, 1, 1, 1, 1, 2, 0, 2, 1, 1, 1, 0, 2, 1, 1, 0, 1, 1, 1,…
england <- uss_get_matches("england")
spain <- uss_get_matches("spain")We can add filtering conditions
uss_get_matches("england", season == 1966) |>
dplyr::glimpse()
#> Rows: 2,028
#> Columns: 8
#> $ country <chr> "England", "England", "England", "England", "England", "…
#> $ tier <fct> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,…
#> $ season <int> 1966, 1966, 1966, 1966, 1966, 1966, 1966, 1966, 1966, 19…
#> $ date <date> 1966-08-27, 1966-09-17, 1966-12-03, 1967-02-04, 1967-04…
#> $ home <chr> "Arsenal", "Arsenal", "Arsenal", "Arsenal", "Arsenal", "…
#> $ visitor <chr> "Aston Villa", "Blackpool", "Burnley", "Chelsea", "Evert…
#> $ goals_home <int> 1, 1, 0, 2, 3, 1, 0, 2, 1, 1, 1, 2, 1, 2, 1, 4, 3, 2, 0,…
#> $ goals_visitor <int> 0, 1, 0, 1, 1, 0, 1, 4, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 2,…