## defense 1st & 2nd

data <- read_csv('FILENAME.csv')
nfl_logos_df <- read_csv("https://raw.githubusercontent.com/statsbylopez/BlogPosts/master/nfl_teamlogos.csv")
today <- format(Sys.Date(), format="%B %d")
chart <- data %>% left_join(nfl_logos_df, by = c("posteam" = "team_code"))

chart %>%
  ggplot(aes(x = success, y = epa)) +
  geom_hline(yintercept = mean(data$epa), color = "red", linetype = "dashed") +
  geom_vline(xintercept =  mean(data$success), color = "red", linetype = "dashed") +
  geom_image(aes(image = url), size = 0.05) +
  labs(x = "Success rate",
       y = "EPA per play",
       caption = "Data from nflscrapR",
       title = "Defense: success rate & EPA/play against",
       subtitle = paste("1st & 2nd down outside red zone, through", today)) +
  theme_bw() +
  scale_y_reverse() +
  scale_x_reverse() +
  theme(axis.title = element_text(size = 12),
        axis.text = element_text(size = 10),
        plot.title = element_text(size = 16),
        plot.subtitle = element_text(size = 14),
        plot.caption = element_text(size = 12))

ggsave('FILENAME.png', dpi=1000)