如何用ggplot在条形图中沿Y轴水平镜像性别处理均值

需求与当前问题 #

需要绘制雄性和雌性处理均值沿Y轴水平镜像的条形图：雌性条形位于Y轴左侧（对应负值），雄性位于右侧（对应正值），所有处理组共享同一Y轴对齐，同时显示标准误（SE）。目前已将雌性均值设为负值，但使用分面方式导致Y轴重复标注，未实现理想的镜像对齐效果。

当前代码 #

sex_plot_neg<- ggplot(summary_data_neg, aes(x = Average, y = treatment, fill = sex, color = sex)) +
  geom_bar(stat = "identity", position = position_dodge(width = 0.8), width = 0.7) +
  geom_errorbar(aes(xmin = Average - SE, xmax = Average + SE), colour="black",
                position = position_dodge(width = 0.8), width = 0.25) +
  facet_wrap(~sex, scales = "free_y") +  # Separate male and female
  theme_minimal() +
  labs(x = "Average Number of Insects ± SEM", y = "Treatment") +
  theme(legend.position = "top")+ 
  scale_x_continuous(labels = abs)

数据（已将雌性均值设为负值） #

structure(list(treatment = c("ace+verbeone", "AKB", "akb+ace+verb", 
"AKB+verbenone", "carveol", "cryptone", "lure", "nopinone", "verbenone", 
"verbenone plus", "ace+verbeone", "AKB", "akb+ace+verb", "AKB+verbenone", 
"carveol", "cryptone", "lure", "nopinone", "verbenone", "verbenone plus"
), sex = c("female", "female", "female", "female", "female", 
"female", "female", "female", "female", "female", "male", "male", 
"male", "male", "male", "male", "male", "male", "male", "male"
), Average = c(-7.977777778, -29.84210526, -4.288888889, -9.392156863, 
-32.1754386, -36.54385965, -41.65686275, -33.0877193, -15.37623762, 
-7.355555556, 6.755555556, 27.40350877, 4.022222222, 7.676470588, 
28.40350877, 30.29824561, 39.29411765, 27.78947368, 12.31683168, 
5.355555556), SE = c(1.020244024, 8.198538498, 0.570859906, 1.132903598, 
5.670578931, 6.984321422, 6.640072589, 5.806523463, 1.732785286, 
0.903503593, 0.70076117, 6.283350102, 0.500997882, 0.81829709, 
4.680109062, 4.743546263, 4.886730757, 4.433067871, 1.302695659, 
0.541374565)), row.names = c(NA, 20L), class = "data.frame")

解决方案代码 #

核心调整：移除分面，利用正负值实现左右镜像，确保同一处理组在Y轴同一位置对齐，同时修正误差线和轴标签。

library(ggplot2)

# 计算X轴的最大绝对值，用于设置对称刻度
max_abs <- max(abs(summary_data_neg$Average + summary_data_neg$SE))

ggplot(summary_data_neg, aes(x = Average, y = treatment, fill = sex, color = sex)) +
  # 添加Y轴中线，增强视觉区分
  geom_vline(xintercept = 0, color = "black", linewidth = 0.8) +
  # 条形图用identity位置，直接按正负值绘制在左右两侧
  geom_bar(stat = "identity", width = 0.7) +
  # 误差线：雌性的误差线保持在左侧（负值区间），雄性在右侧（正值区间）
  geom_errorbar(aes(xmin = Average - SE, xmax = Average + SE), 
                colour = "black", width = 0.25) +
  theme_minimal() +
  labs(x = "Average Number of Insects ± SEM", y = "Treatment") +
  theme(legend.position = "top") +
  # 设置对称的X轴刻度，标签显示绝对值
  scale_x_continuous(
    limits = c(-max_abs, max_abs),
    labels = abs,
    breaks = seq(-round(max_abs), round(max_abs), by = 10)
  ) +
  # 可选：自定义雌雄的填充色，增强区分度
  scale_fill_manual(values = c("female" = "#FF6B6B", "male" = "#4ECDC4")) +
  scale_color_manual(values = c("female" = "#FF6B6B", "male" = "#4ECDC4"))

关键调整说明 #

• 移除facet_wrap(~sex)：分面会将雌雄分成两个独立面板，无法实现同一Y轴的对齐效果
• 用geom_vline添加x=0的中线：清晰区分左右两侧的雌雄数据
• geom_bar使用position = "identity"：因为已经通过正负值将雌雄条形分别放在Y轴两侧，不需要dodge（分组偏移）
• 对称X轴刻度：通过计算最大绝对值设置X轴范围，确保左右刻度对称，标签显示绝对值更易读

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