1.- Obtenemos los valores de la tabla de excel

df <- read.csv("DemoQuintanaRoo.csv")

2.- Los agrupamos

df1 <- df %>% pivot_longer(cols = c("Hombres", "Mujeres"),
             names_to = "Sexo",
             values_to = "Poblacion por Sexo")

3.- Graficamos y arreglamos la informacion para la grafica

ggplot(df1, aes(x = `Edad.desplegada`, y = `Poblacion por Sexo`, fill = Sexo)) + 
geom_col(data = subset(df1, Sexo == "Hombres")%>% mutate(`Poblacion por Sexo` = -`Poblacion por Sexo`),width = 0.5,fill = "blue") + 
geom_col(data = subset(df1, Sexo == "Mujeres"),width = 0.5,fill = "pink") + coord_flip() + ggtitle("Piramide Poblacional Quintana Roo",
"Zamudio Paredes Zuriel") + scale_y_continuous(
  breaks = c(seq(-100000, -20000, by = 20000), 
             seq(0, 100000, by = 20000)),
  labels = c(seq(-100000, -20000, by = 20000) * -1, 
             seq(0, 100000, by = 20000))) + ylab("Poblacion") + xlab("Edad")