R/players.R

In daz13/nbaAnalytics: Provides visualizations and analyses based on data from NBA.com

# players.R

library(ggplot2)
## Plot Career stats

#'
#'
#' @examples
#' dat <- get_PlayerCareerStats_by_name("Lance Stephenson"); dat
get_PlayerCareerStats_by_name <- function(n, permode = "Per36") {
  id <- nbaAnalytics::all_players %>%
    filter(DISPLAY_FIRST_LAST == n) %>%
    select(PERSON_ID)
  careerStatsGrabber((urlBuilder(statCat = "playercareerstats",
                              parameters = list(PlayerID = as.character(id[1,1]),
                                                PerMode =  permode)
                              )
                   )
                  )
}

#'
#'
#' @examples
#' get_PlayerGameLog_by_name(n = "Dirk Nowitzki")
get_PlayerGameLog_by_name <- function(n) {
  id <- nbaAnalytics::all_players %>%
    filter(DISPLAY_FIRST_LAST == n) %>%
    select(PERSON_ID)
  nbaStatsGrabber((urlBuilder(statCat = "playergamelog",
                              PlayerID = as.character(id[1,1]))))
}


#'
#'
#' @examples
#' testDat <- get_PlayerCareerStats_by_name("Dirk Nowitzki")
#' plot_PlayerStats(testDat, "PTS")
#' plot_PlayerStats(get_PlayerCareerStats_by_name("LeBron James"), "FG_PCT")
#' plot_PlayerStats(get_PlayerCareerStats_by_name("LeBron James"), "PTS")
plot_PlayerStats <- function(data, statistic) {
  data %>%
    mutate_(STAT = statistic) %>% mutate(STAT = as.numeric(as.character(STAT))) %>%
    ggplot(aes(x = SEASON_ID, y = STAT, fill = TEAM_ABBREVIATION)) +
    geom_bar(stat = "identity", position = "dodge") +
    theme_bw()
}

#'
#' @examples
#' plot_playerPoints(testDat)
plot_playerPoints <- function(data) {
  data %>% select(SEASON_ID, TEAM_ABBREVIATION,
                  PTS, FG_PCT) %>%
    cleanMultiTeamSeasons() %>%
    #reshape2::melt(id.vars = c("SEASON_ID", "TEAM_ABBREVIATION", "FG_PCT")) %>%
    mutate(PTS  = as.numeric(as.character(PTS)),
           FG_PCT = as.numeric(as.character(FG_PCT))) %>%
    ggplot(aes(x = SEASON_ID, y = PTS, fill = FG_PCT)) +
    geom_bar(stat = "identity", position = "dodge")
}

cleanMultiTeamSeasons <- function(df) {
  seasons <- levels(df$SEASON_ID)
  for (i in seasons) {
    season_rows <- which(df$SEASON_ID == i)
    if (length(season_rows) > 1){
      df <- df[-(season_rows[1]:season_rows[length(season_rows) - 1]),]
    }
  }
  df
}

#' @examples
#' dat <- get_PlayerCareerStats_by_name("Paul George")
#' plot_playerStats(dat, FGA, FGM, FG3A, FG3M, FTA, FTM)
plot_playerStats <- function(dat, ...) {
  dat %>% select(SEASON_ID, TEAM_ABBREVIATION, ...) %>%
    cleanMultiTeamSeasons() %>%
    reshape2::melt(id.vars = c("SEASON_ID", "TEAM_ABBREVIATION")) %>%
    mutate(value = as.numeric(as.character(value))) %>%
    ggplot(aes(x = SEASON_ID, y = value, col = variable, group = variable )) +
    geom_line() #+
    #facet_wrap(~ variable, scales = "free_y", ncol = 2)
}

# Some probably useful links:
#     - Player Info commonplayerinfor
#     - Player Career Stats http://stats.nba.com/stats/playercareerstats?LeagueID=00&PerMode=PerGame&PlayerID=201167
#     - Player Season Stats http://stats.nba.com/stats/playergamelog?DateFrom=&DateTo=&LeagueID=00&PlayerID=201566&Season=2016-17&SeasonType=Regular+Season
#     - Player Game Log http://stats.nba.com/stats/playergamelog?DateFrom=&DateTo=&LeagueID=00&PlayerID=201167&Season=2016-17&SeasonType=Regular+Season