创建性别化堆叠金字塔图遇ggplot2报错，求修复方案

错误根源 #

• 变量名混乱：代码里混用Sex与gender、Quarter与quarter，导致映射逻辑失效
• 图层冲突：重复调用geom_bar且参数混乱，未指定stat='identity'时，默认的stat_count()不允许同时存在x、y双向美学映射，触发报错
• 金字塔逻辑缺失：未对男性群体的TotalNo取负数，无法实现男女分置两侧的效果

修正后的实现方案 #

先预处理数据调整数值方向，再用统一的图层逻辑绘制分面金字塔图：

library(dplyr)
library(ggplot2)

# 数据预处理：统一变量逻辑，男性数量转负实现分置
processed_data <- ElasmobranchSex %>%
  mutate(
    # 确保性别列值统一，这里假设原数据列名为Sex，值为"Male"/"Female"
    TotalNo = ifelse(Sex == "Male", -TotalNo, TotalNo),
    Quarter = factor(Quarter, levels = 1:4) # 强制季度按1-4顺序显示
  )

# 绘制分面性别金字塔图
ggplot(processed_data, aes(x = Quarter, y = TotalNo, fill = Sex)) +
  geom_bar(stat = "identity") +
  scale_y_continuous(
    breaks = seq(-500, 500, 100), # 调整步长避免刻度过密
    labels = abs(seq(-500, 500, 100)),
    name = "数量"
  ) +
  scale_x_discrete(name = "季度") +
  scale_fill_brewer(palette = "Dark2") +
  coord_flip() +
  facet_wrap(~Classification) # 按Shark/Skate/Ray分面
  theme(text = element_text(size = 16)) +
  labs(title = "软骨鱼类性别数量金字塔图（按季度、类别分面）")

核心说明 #

• 把男性的TotalNo转为负数是实现男女分置两侧的关键，配合coord_flip()会呈现左右分布的金字塔形态
• 仅保留一条geom_bar(stat="identity")，避免图层冲突，同时明确x（季度）、y（处理后数量）、fill（性别）的映射关系
• 统一变量名，确保代码调用的字段与数据列名完全匹配，消除拼写/大小写导致的错误

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