ggplot绘制人口金字塔时x轴（年龄组）排序异常的解决咨询

你的问题核心是仅用arrange()调整行顺序，没有将Grupos列真正转换为带指定层级的因子，ggplot仍会按字符的字典序对x轴排序，导致年龄组位置错乱。

解决步骤： #

1. 将Grupos转换为因子并指定层级：
   不要只在arrange()里临时用factor()，而是直接修改数据列的类型，这样ggplot会遵循因子的层级排序：

   # 定义年龄组的正确顺序
   age_levels <- c('0-4 años', '5-9 años', '10-14 años', '15-19 años', 
                   '20-24 años', '25-29 años', '30-34 años','35-39 años',
                   '40-44 años','45-49 años','50-54 años','55-59 años',
                   '60-64 años','65-69 años','70-74 años','75-79 años',
                   '80-84 años','85+')
   
   # 将Grupos转换为因子，指定层级
   demo$Grupos <- factor(demo$Grupos, levels = age_levels)
   

2. 优化人口金字塔绘图代码（可选但更规范）：
   传统人口金字塔会将男性数值设为负数，无需两次调用geom_bar，代码更简洁：

   library(ggplot2)
   library(lemon)
   
   # 处理男性数值为负，实现左右分栏
   demo <- demo %>%
     mutate(Valor = ifelse(Grupo == "Hombre", -Valor, Valor))
   
   popchart <- ggplot(demo, aes(x = Grupos, y = Valor, fill = Grupo)) + 
     geom_bar(stat = "identity") +
     scale_y_symmetric(labels = abs) +
     coord_flip()
   
   print(popchart)
   

关键说明： #

• factor()的levels参数直接决定了ggplot离散轴的显示顺序，只要Grupos是带正确层级的因子，不管数据行顺序如何，x轴都会按你定义的年龄组顺序排列。
• 若坚持使用原两次geom_bar的写法，只要完成第一步的因子转换，排序问题也会得到解决，优化写法仅为提升代码简洁性和可维护性。

内容的提问来源于stack exchange，提问作者lasagna