wiz.R

require(httr)
require(jsonlite)
require(ggplot2)
require(gridExtra)

remove(list=ls())

hm=fromJSON('http://stats.nba.com/stats/teamgamelog?LeagueID=00&Season=2015-16&SeasonType=Regular+Season&TeamID=1610612764')

wiz=data.frame(hm$resultSets$rowSet)
names(wiz)=unlist(hm$resultSets$headers)

for(i in names(wiz)){
  
  tt=as.character(wiz[,i])
  tt=as.numeric(tt)
  warn=ifelse(all(is.na(tt))==TRUE,"warning","OK")
  
  if(warn=='OK'){
    
    wiz[,i]=as.numeric(tt)
    
  }
  
  rm(tt, warn)
  
}


ggplot(wiz, aes(WL, FG3_PCT)) + geom_jitter(size=3) + geom_boxplot(aes(fill=WL), alpha=.2) +
  theme(panel.background =  element_rect(fill = NA, colour = "black", size = 0.25),
        panel.border =      element_blank(),
        panel.grid.major =  element_line(colour = "black", size = 0.05),
        panel.grid.minor =  element_line(colour = "black", size = 0.05),
        plot.title=element_text(size=18, family="Helvetica Neue Light"),
        axis.title.x=element_text(size=14, family="Helvetica Neue Light"),
        axis.text.x=element_text(colour="black", size=14, family="Helvetica Neue Light"),
        axis.title.y=element_text(size=14, family="Helvetica Neue Light"),
        axis.text.y=element_text(colour="black",size=14, family="Helvetica Neue Light"),
        strip.text.x = element_text(size = 14,family="Helvetica Neue Light"),
        strip.text.y = element_text(size = 14,family="Helvetica Neue Light"),
        legend.title = element_text(size=14, family="Helvetica",face="bold"),
        legend.text = element_text(size=14, family="Helvetica Neue Light"),
        strip.background = element_rect(colour = "grey", fill = "white")) + 
  xlab('Wizards Wins Versus Losses') + ylab('3 Point Pct') + 
  ggtitle('Wizards Wins and Losses by 3 Point Pct')