geom_text标签条件水平对齐问题：ifelse设置hjust的正确方式

问题背景 #

绘制包含正负值的geom_col图表时，因部分负值远大于正值，坐标轴0点偏移，导致geom_text标签无法以0点为基准正确向外对齐（正值标签在柱形右侧、负值标签在柱形左侧）。

环境：Windows 11、R版本4.2.2

数据及初始代码：

library(ggplot2)
library(dplyr)
library(tidyr)
ggplot2::theme_set(theme_minimal())

df <- tibble(period = c("one_y", "three_y", "five_y", "seven_y", "ten_y", "whole_period"),
             nominal_gross = c(-21.13, NA, NA, 3.04, 4.1, 4),
             nominal_net = c(-21.64, -3.48, 0.6, 2.58, 3.69, 3.7),
             real_net = c(-25.65, -8.97, -3.75, -0.89, 1.04, 1.25)) %>%
  pivot_longer(!period, names_to = "return_type", values_to = "return_values")

尝试过的无效方法 #

• 使用hjust="outward"：该参数以绘图区域中点（此案例约为-10）而非坐标轴0点为参考，导致0到-10之间的负值标签被置于柱形内部，不符合需求。
• 直接用ifelse设置hjust：尝试通过条件判断给正负值分配不同hjust，但多数标签仍在柱形内部，排查NA值后问题未解决。
• 截断坐标轴：尝试设置scale_y_continuous的limits和oob参数删除-10到-20区域，但长柱形会在限制处被截断，丢失原有梯度。

解决方案 #

将ifelse条件语句作为美学映射传入geom_text，明确以0点为基准设置hjust：

geom_text(aes(hjust = ifelse(return_values < 0, 1.25, -0.25)),
          position = position_dodge2(reverse = T, width = 0.9),
          vjust = 0.4,
          size = 3,
          check_overlap = T) 

此时所有标签会以0点为基准向外对齐：负值标签在柱形左侧，正值标签在柱形右侧，显示正常。

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