ggplot2中geom_text轴左对齐及文本颜色动态调整问题

1. 将标签左对齐到坐标轴（带偏移） #

要把标签从条形末端改到坐标轴左对齐，只需在geom_text中重新指定x轴位置为0，再通过nudge_x微调与坐标轴的距离即可，修改后代码如下：

df <-
  data.frame(ylabl = c("y_val: a", "y_val: b", "y_val: c", "y_val: d"),
             count = c(  2,   5,   8,  10),
             lab_2 = c("long label here", "short lbl", "medium label", "label medium length")) %>% 
  as_tibble() %>% 
  mutate(ylabl = fct_reorder(ylabl, count))

ggplot(data=df, aes(x=count, y=ylabl)) + 
  geom_bar(stat = "identity", position="stack") +
  # 单独指定x=0实现坐标轴左对齐，nudge_x调整偏移量避免贴轴
  geom_text(aes(label=lab_2), x=0, size=16, color="orange", hjust=0, nudge_x=0.2) +
  theme_classic()

原代码中geom_text继承了全局映射的x=count，所以标签固定在条形末端；现在单独设置x=0，就能让标签对齐到x轴原点，nudge_x可根据需求调整标签与坐标轴的间距。

2. 实现文本跨条形末端时动态变色 #

原生geom_text不支持单个文本设置多种颜色，需要借助ggtext包的富文本功能实现。核心思路是把文本拆分为条形范围内的部分和超出条形的部分，分别设置颜色后拼接成HTML格式，再用geom_richtext绘制。

步骤1：安装并加载依赖包 #

install.packages(c("tidytext", "ggtext"))
library(tidytext)
library(ggtext)

步骤2：处理文本，拆分并生成富文本格式 #

# 计算每个文本的总宽度（适配size=16的字体）
text_widths <- strwidth(df$lab_2, units = "inches", cex = 16/12)
# 计算每个字符的平均宽度
char_widths <- text_widths / nchar(df$lab_2)

# 拆分文本，判断哪些部分在条形范围内
df_split <- df %>%
  rowwise() %>%
  mutate(
    # 把文本拆成单个字符
    chars = str_split(lab_2, "")[[1]],
    # 计算每个字符累积的x轴位置（映射到当前图表的x轴范围）
    x_max = max(df$count) + 5,
    cum_x = cumsum(char_widths * (x_max / max(text_widths))),
    # 找到第一个超出条形末端的字符位置
    split_pos = which(cum_x > count)[1]
  ) %>%
  ungroup() %>%
  mutate(
    # 拆分出条形内和条形外的文本
    text_in = ifelse(is.na(split_pos), lab_2, substr(lab_2, 1, split_pos - 1)),
    text_out = ifelse(is.na(split_pos), "", substr(lab_2, split_pos, nchar(lab_2))),
    # 拼接成带颜色标签的HTML文本
    rich_text = paste0("<span style='color:black'>", text_in, "</span><span style='color:red'>", text_out, "</span>")
  )

步骤3：绘制带动态变色标签的图表 #

ggplot(data=df_split, aes(x=count, y=ylabl)) + 
  geom_bar(stat = "identity", position="stack") +
  # 用geom_richtext绘制富文本，关闭背景和边框保持简洁
  geom_richtext(aes(label=rich_text), x=0, size=16, hjust=0, nudge_x=0.2, fill=NA, label.color=NA) +
  theme_classic()

通过计算每个字符对应的x轴位置，判断哪些字符落在条形范围内（x≤count），将这部分设为一种颜色，超出部分设为另一种颜色，最后用geom_richtext渲染富文本，同时关闭背景和边框，保持和原标签一致的视觉效果。

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