Density Shot Chart of Stephen Curry 2015 (ggplot2 & hexbin & png)

Density_ShotChart

# Steph Curry Shot Selection in 2015
# Data from: NBAsavant.com (awesome data source)

packs <- c("png","grid","ggplot2")
lapply(packs, require, character.only=TRUE)

steph <- read.csv("data.csv") # from NBAsavant.com
court <- readPNG("court.png") # diagram of NBA court
g <- rasterGrob(court, interpolate=TRUE)

# Density Shot Chart
Plot <- ggplot(steph,aes(x=x,y=y,label=shot_made_flag)) + # x is placement in horizontal units and y for vertical
  annotation_custom(g, xmin=-Inf, xmax=Inf, ymin=-Inf, ymax=Inf) + # adds the background court
  stat_density2d(aes(colour=..level..,fill=..level..,),alpha=.2, geom="polygon") + # density plot
  scale_x_continuous(expand=c(0.3, 0)) + # removes edge problems
  theme_bw() +
  xlab("") + ylab("") + 
  # Remove axes
  theme(axis.ticks = element_blank(), 
        axis.text.x = element_blank(), 
        axis.text.y = element_blank()) + 
  # Fit to court picture - Needs work here to make it fit
  coord_cartesian(xlim=c(-265,265),
                  ylim=c(10,450)) # I played around with this knowing that he shoots a lot of 3's
Plot
# Hexbin Shot Chart (still needs work)
Plot2 <- ggplot(steph,aes(x=x,y=y,label=shot_made_flag)) +
  annotation_custom(g, xmin=-Inf, xmax=Inf, ymin=-Inf, ymax=Inf) +
  stat_binhex(alpha=.75,bin=100) +
  theme_bw() +
  coord_cartesian(xlim=c(-275,275),
                  ylim=c(0,450))
Plot2