if (FALSE) {
df <- do_join_games_bio("ACB", acb_games_1718, acb_players_1718)
df1 <- do_add_adv_stats(df)
team <- "Valencia"
df_four_factors <- do_four_factors_df(df1, team, NULL)
# If only one team is represented the ranking between parentheses is just one.
get_four_factors_plot(df_four_factors$df_rank, df_four_factors$df_no_rank, team, "en")
# Example with only defense:
get_four_factors_plot(df_four_factors$df_rank, df_four_factors$df_no_rank, team,
"en", "def") +
ggplot2::theme(legend.position = "none")
}
Run the code above in your browser using DataLab