How to control interval for Choropleth-map?

Question

I have the following code:

popyoung <- popagesex %>%
  filter(Time == 2019) %>%
  spread(AG, Pop) %>%
  mutate(YOUNG = `0_to_4`) %>%
mutate(`AGED`=