ggplot含正负值分面柱状图的geom_text标签位置调整问题

我需要在分面柱状图中，为正负数值的条形分别在顶部/底部（对应x轴两侧）添加标签。目前尝试使用vjust/hjust参数进行调整，但未达到预期效果。

当前效果截图 #

实现代码 #

total_merged%>%
      ggplot(aes(factor(NAPLAN_YEAR), value_add_sector_total, fill = model,
                 label = value_add_sector_total
               )) +
      geom_col(position = position_dodge(width = 0.75), width = 0.5) +
      facet_grid(.~sector_report, switch = 'x') +
      scale_fill_manual(NULL, values = c('#1e3763', '#bebebe'), labels = c("Base", "MLSH")) +
      theme_minimal() +
      geom_text(position = position_dodge(width = 0.75), hjust=0.5, vjust = 1.7, #angle = 90, 
                color="darkred")+
          
      labs(title="",
           x ="", y="System 'value add'")+
      theme(legend.position = 'bottom',
          aspect.ratio = 4/3,
            strip.placement = 'outside',
            panel.spacing.x = unit(0, 'mm'),
            axis.title.x = element_blank(),
            panel.grid.major.x = element_blank(),
            panel.grid.minor.y = element_blank(),
            strip.text = element_text(face = 2),
            legend.text=element_text(size=9),
            legend.title=element_text(size=9),
            axis.text= element_text(size = 9, colour = "black")
      )

数据样本（前50行） #

structure(list(value_add_sector_total = c(-1.38, -1.38, -1.38, 
-1.38, -1.38, -1.38, -1.38, -1.38, -1.38, -1.38, -1.38, -1.38, 
-1.38, -1.38, -1.38, -1.38, -1.38, -1.38, -1.38, -1.38, -1.38, 
-1.38, -1.38, -1.38, -1.38, -1.38, -1.38, -1.38, -1.38, -1.38, 
-1.38, -1.38, -1.38, -1.38, -1.38, -1.38, -1.38, -1.38, -1.38, 
-1.38, -1.38, -1.38, -1.38, -1.38, -1.38, -1.38, -1.38, -1.38, 
-1.38, -1.38), NAPLAN_YEAR = c(2011, 2011, 2011, 2011, 2011, 
2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 
2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 
2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 
2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 
2011), model = c("base", "base", "base", "base", "base", "base", 
"base", "base", "base", "base", "base", "base", "base", "base", 
"base", "base", "base", "base", "base", "base", "base", "base", 
"base", "base", "base", "base", "base", "base", "base", "base", 
"base", "base", "base", "base", "base", "base", "base", "base", 
"base", "base", "base", "base", "base", "base", "base", "base", 
"base", "base", "base", "base")), row.names = c(NA, -50L), class = c("tbl_df", 
"tbl", "data.frame"))

核心思路是根据value_add_sector_total的正负值动态设置对齐参数，同时微调标签偏移量避免与条形重叠，优化标签显示格式。修改后的代码如下：

total_merged %>%
  ggplot(aes(factor(NAPLAN_YEAR), value_add_sector_total, fill = model,
             label = sprintf("%.2f", value_add_sector_total)  # 格式化标签为两位小数
           )) +
  geom_col(position = position_dodge(width = 0.75), width = 0.5) +
  facet_grid(.~sector_report, switch = 'x') +
  scale_fill_manual(NULL, values = c('#1e3763', '#bebebe'), labels = c("Base", "MLSH")) +
  theme_minimal() +
  # 动态设置对齐与偏移：正值标签在条形上方，负值标签在条形下方
  geom_text(position = position_dodge(width = 0.75), 
            hjust = 0.5,
            vjust = ifelse(total_merged$value_add_sector_total > 0, -0.5, 1.5),
            nudge_y = ifelse(total_merged$value_add_sector_total > 0, 0.1, -0.1),
            color = "darkred") +
  labs(title = "",
       x = "", y = "系统'增值'") +
  theme(legend.position = 'bottom',
        aspect.ratio = 4/3,
        strip.placement = 'outside',
        panel.spacing.x = unit(0, 'mm'),
        axis.title.x = element_blank(),
        panel.grid.major.x = element_blank(),
        panel.grid.minor.y = element_blank(),
        strip.text = element_text(face = 2),
        legend.text = element_text(size = 9),
        legend.title = element_text(size = 9),
        axis.text = element_text(size = 9, colour = "black")
  )

关键调整点 #

• 动态对齐：用ifelse判断数值正负，正值设置vjust = -0.5（标签在条形顶部上方），负值设置vjust = 1.5（标签在条形底部下方）
• 偏移微调：通过nudge_y给标签增加小偏移量，避免与条形边缘重叠
• 标签格式化：用sprintf将标签格式化为两位小数，提升可读性

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