get_plot_monthly_stats: Monthly stats

In BAwiR: Analysis of Basketball Data

Monthly stats

Description

In all the available basketball websites, the stats are presented for the whole number of games played. This function represents the players' stats for each month, which is very useful to analyze the players' evolution. The plot can be either a bar plot or a line plot.

Usage

get_plot_monthly_stats(df_stats, title, size_text = 2.5, type_plot, language, 
                       same_team = FALSE, hjust_val = 2, vjust_val = 0.5)

Arguments

df_stats	Data frame with the statistics.
title	Plot title.
size_text	Label size for each bar. Default 2.5.
type_plot	String, either 'bar_plot' or 'line_plot'.
language	String, either 'English' or 'Spanish'. Needed for the line plot.
same_team	Logical to specify if players selected belong to the same team. If so, the facet labels in the line plot can be abbreviated.
hjust_val	Adjust horizontally the text in the line plot.
vjust_val	Adjust vertically the text in the line plot.

Value

Graphical device.

Author(s)

Guillermo Vinue

See Also

capit_two_words

Examples

## Not run: 
library(dplyr)

compet <- "ACB"

df <- do_join_games_bio(compet, acb_games_1718, acb_players_1718)
df1 <- do_add_adv_stats(df)

months <- c(df %>% distinct(Month))$Month
months_order <- c("septiembre", "octubre", "noviembre", "diciembre", "enero")
months_plot <- match(months_order, months)
months_plot1 <- months_plot[!is.na(months_plot)]
months_plot2 <- months[months_plot1]

df3_m <- df1 %>%
filter(Team == "Real_Madrid", 
      Player.x == "Doncic, Luka") %>%
 group_by(Month) %>%
 do(do_stats(., "Average", "2017-2018", "ACB", "Regular Season")) %>%
 ungroup() %>%
 mutate(Month = factor(Month, levels = months_plot2)) %>%
 arrange(Month)

stats <- c("GP", "MP", "PTS", "FGA", "FGPerc", "ThreePA", 
           "ThreePPerc", "FTA", "FTPerc",
           "TRB", "ORB", "AST", "TOV", "STL")
           
df3_m1 <- df3_m %>%
  select(1:5, all_of(stats), 46:50) %>%
  mutate(Month = plyr::mapvalues(Month, 
                                 from = c("octubre", "noviembre", "diciembre", "enero"),
                                 to = c("October", "November", "December", "January")))
  
get_plot_monthly_stats(df3_m1, paste("ACB", "2017-2018", "Average", sep = " ; "), 
                       2.5, "bar_plot", "English")
                       
get_plot_monthly_stats(df3_m1, paste("ACB", "2017-2018", "Average", sep = " ; "), 
                       2.5, "line_plot", "English")

## End(Not run)

BAwiR documentation built on Feb. 27, 2026, 5:07 p.m.