Heatmap of touches

gana.csv

ganaheatmap.R

### Soccer Pitch Code

library(ggplot2)
library(RColorBrewer)

cols <- rev(brewer.pal(10, "Spectral"))

ggplot(data=gana) +  
  stat_density2d(aes(x=as.numeric(x), y=as.numeric(y), z=1, fill = ..density.., na.rm=TRUE), geom="tile",  contour = FALSE) + 
  scale_fill_gradientn(colours=cols) + 
  theme_minimal() +
  geom_segment(aes(x = 0, y = 0, xend = 0, yend = 100), size=1) + 
  geom_segment(aes(x = 100, y = 0, xend = 100, yend = 100), size=1) + 
  geom_segment(aes(x = 0, y = 0, xend = 100, yend = 0), size=1) + 
  geom_segment(aes(x = 0, y = 100, xend = 100, yend = 100), size=1) + 
  geom_segment(aes(x=50, y= 0, xend = 50, yend = 100), size=1) + 
  geom_segment(aes(x=0, y=21, xend = 17, yend=21), size=1) + 
  geom_segment(aes(x=17, y=21, xend = 17, yend=79), size=1) + 
  geom_segment(aes(x=0, y=79, xend = 17, yend= 79), size=1) + 
  geom_segment(aes(x=50, y= 0, xend = 50, yend = 100), size=1) + 
  geom_segment(aes(x=5.8, y= 36.8, xend = 0, yend = 36.8), size=1) + 
  geom_segment(aes(x=0, y=63.2, xend = 5.8, yend = 63.2), size=1) + 
  geom_segment(aes(x=5.8, y=36.8, xend = 5.8, yend = 63.2), size=1)+ 
  geom_segment(aes(x=83, y=21, xend=100, yend=21.2), size=1) + 
  geom_segment(aes(x=83, y=21, xend=83, yend=79), size=1) + 
  geom_segment(aes(x=83, y=79, xend=100, yend=79), size=1)+ 
  geom_segment(aes(x=100, y=36.8, xend=94.2, yend=36.8), size=1) + 
  geom_segment(aes(x=94.2, y=36.8, xend=94.2, yend=63.2), size=1) + 
  geom_segment(aes(x=100, y= 63.2, xend=94.2, yend=63.2), size=1)

This code gives this image:

Be wary if comparing multiple plots - density needs to be corrected over all plots. Best to have data in one dataframe and use facet_wrap. e.g. comparing two games for the above player looks like this: