use-color-in-titles-to-highlight-findings.R

enrollment_by_race_ethnicity %>% 
  filter(race_ethnicity == "Hispanic/Latino") %>% 
  ggplot(aes(x = year,
             y = percent_of_total_at_school,
             group = district)) +
  geom_line(color = "lightgray",
            alpha = 0.5) +
  geom_line(data = highlight_district,
            inherit.aes = TRUE,
            color = "blue") +
  geom_text(data = highlight_district,
            inherit.aes = TRUE,
            aes(label = percent_display),
            hjust = c(1, 0),
            family = "Courier New",
            color = "blue") +
  theme_minimal() +
  theme(axis.title = element_blank(),
          panel.grid.minor.y = element_blank(),
          plot.title = element_markdown(face = "bold") +
  scale_y_continuous(labels = percent_format()) +
  labs(title = "<span style = 'color: blue'>Douglas ESD</span> saw a large growth in its Latino student population from 2017-2018 to 2018-2019")