block16.

# Graficamos
ggplot(pop, aes(x = `Grupos quinquenales de edad`,
                y = `Poblacion por Sexo`,
                fill = Sexo)) +
  geom_linerange(data = subset(pop, Sexo == "Hombres") %>% 
                   # Convertimos los datos de los Hombres en negativos
                 mutate(`Poblacion por Sexo` = -`Poblacion por Sexo`),
                 aes(ymin = -desplazamiento, 
                     ymax = -desplazamiento +`Poblacion por Sexo`),
                 size = 5, 
                 color = "blue") +
  geom_linerange(data = subset(pop, Sexo == "Mujeres"),
                 aes(ymin = desplazamiento, 
                     ymax = desplazamiento  +`Poblacion por Sexo`),
                 size = 5, 
                 color = "pink") +
  # Cambiamos el orden de los ejes de la graficas 
  coord_flip()  +
   scale_y_continuous(
     breaks = c(seq(-180000, 0, by = 30000) - desplazamiento,
                seq(0, 180000, by = 30000) + desplazamiento),
     labels = c(rev(seq(0, 180000, by = 30000)),
               seq(0, 180000, by = 30000))) +
  # Eliminamos el texto del eje x volteado
   theme(plot.title = element_text(hjust = .5),
        axis.ticks = element_blank(),
        axis.text.y = element_blank()
        ) +   # Centre plot title
   # Aniadimos la escala de texto en el centro. 
   geom_label(aes(x = `Grupos quinquenales de edad`, 
                  y = 0, 
                  label = `Grupos quinquenales de edad`),
   # Caracteristicas del texto             
             family = "Arial",
             size = 3.5, 
             label.padding = unit(0.0, "lines"), 
             label.size = 0,
             label.r = unit(0.0, "lines"), 
             fill = "#FFFFFF", 
             alpha = 0.9, 
             color = "#5D646F")