R/visualize-scores.R

In IsaacVerm/scoresJpl: Explore scores in Jupiler Pro League

#' @export
plot_proportion_scores <- function(scores_by_frequency) {
  ggplot2::ggplot(data = scores_by_frequency,
                  ggplot2::aes(x = reorder(score, -proportion),
                               y = round(proportion * 100, 2))) +
    ggplot2::geom_col() +
    ggplot2::theme(axis.text.x = ggplot2::element_text(angle = 90, hjust = 1)) +
    ggplot2::labs(title = "Scores naargelang procentueel voorkomen",
                  x = "score",
                  y = "percentage wedstrijden met deze score")
}

#' @export
plot_average_goals_by_season <- function(long_average_goals_by_season) {
  ggplot2::ggplot(data = long_average_goals_by_season,
                  ggplot2::aes(x = season,
                               y = goals,
                               group = venue,
                               fill = venue)) +
    ggplot2::geom_col(position = "dodge") +
    ggplot2::theme(axis.text.x = ggplot2::element_text(angle = 90, hjust = 1)) +
    ggplot2::labs(title = "gemiddeld aantal doelpunten per wedstrijd naar seizoen",
         x = "seizoen",
         y = "gemiddeld aantal doelpunten per wedstrijd",
         fill = "thuis-en uitdoelpunten") +
    ggplot2::scale_fill_manual(values = c("#999999", "#F8766D"),
                               labels = c("uit","thuis"))
}

#' @export
plot_most_frequent_scores_by_season <- function(most_frequent_scores_by_season) {
  ggplot2::ggplot(data = most_frequent_scores_by_season,
                  ggplot2::aes(x = score,
                               y = round(proportion * 100, 2))) +
    ggplot2::geom_col() +
    ggplot2::theme(axis.text.x = ggplot2::element_text(angle = 90, hjust = 1)) +
    ggplot2::labs(title = "Meest voorkomende scores per seizoen",
                  x = "score",
                  y = "percentage wedstrijden met deze score") +
    ggplot2::facet_wrap(~season)
}

#' @export
plot_outlier_index <- function(outlier_index) {
  ggplot2::ggplot(data = outlier_index,
                  ggplot2::aes(x = reorder(season, -average_proportion_difference),
                               y = round(average_proportion_difference * 1000, 2))) +
    ggplot2::geom_col() +
    ggplot2::theme(axis.text.x = ggplot2::element_text(angle = 90, hjust = 1)) +
    ggplot2::labs(title = "Index afwijkende seizoenen",
                  x = "seizoen",
                  y = "index")
}