library(ggplot2)
shots_data <- data.frame(x = c(90, 85, 82, 78, 83),
y = c(43, 40, 52, 56, 44))
p <- ggplot(shots_data, aes(x = x, y = y)) +
annotate_pitch() +
geom_point()
# Pitch fixed to 68/105 by default
p + theme_pitch()
# Free aspect
p + theme_pitch(aspect_ratio = NULL)
Run the code above in your browser using DataLab