cshexbin.R

cstrike <- read.csv("CSrandom2.csv")
csgo <- read.csv("CSgopolar.csv")

p <- ggplot(data = cstrike, aes(x = x, y = y)) + 
  stat_binhex(aes(fill = ..density.. * 100), bins = 8) +
  scale_fill_gradientn(colours=c("Gray97","Firebrick3"), 
                       name = "Percentage of shots") +
  theme_set(theme_bw(base_size = 20)) +
  theme(axis.title.y = element_text(angle = 0, hjust = 0)) +
  ggtitle("Distribution of shots in CS 1.6's spread box")

p