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()
# Add direction of play label
p + direction_label()
Run the code above in your browser using DataLab