block7.

### Grafica ----
ggplot(pop, aes(x = `Grupos quinquenales de edad`,
                y = `Poblacion por Sexo`,
                fill = Sexo)) +
  geom_col(data = subset(pop, Sexo == "Hombres") %>% 
             mutate(`Poblacion por Sexo` = -`Poblacion por Sexo`),
              width = 0.5, fill = "blue") +
  geom_col(data = subset(pop, Sexo == "Mujeres"),
           width = 0.5, fill = "pink") + 
  coord_flip()