在ggplot对数10刻度Y轴上动态定位水平线下方文本

由于log10轴是对数刻度，直接按数据值偏移会导致视觉距离随y_intercept变化，这里提供两种可靠的解决方法：

方法1：利用对数空间的固定差值（推荐） #

log10轴是将y值转换为log10(y)后线性绘制的，log10(y)的固定差值对应固定的视觉距离。只需计算文本的y坐标为10^(log10(y_intercept) - k)，其中k是控制视觉距离的固定log差值（k越大，文本离水平线越远）。

示例代码：

library(ggplot2)

# 示例数据与参数
df <- data.frame(x = 1:10, y = sample(1:100, 10))
y_min <- 1
y_max <- 100
y_intercept <- 50
text_label <- "hello"
log_offset <- 0.1 # 控制视觉距离的固定log差值

# 计算文本的Y坐标
text_y <- 10^(log10(y_intercept) - log_offset)

# 绘图
ggplot(df, aes(x, y)) +
  geom_point() +
  scale_y_log10(limits = c(y_min, y_max)) +
  geom_hline(yintercept = y_intercept, color = "red") +
  geom_text(
    aes(x = mean(x), y = text_y, label = text_label),
    hjust = 0.5, # 水平居中对齐水平线
    color = "blue"
  )

该方法简单直接，无需依赖ggplot内部函数，能保证任何log10轴设置下，文本与水平线的视觉距离完全一致。

方法2：基于绘图区域比例的偏移（灵活控制相对位置） #

如果希望文本距离是相对于整个绘图区域的固定比例（比如向下偏移5%的绘图高度），可先将数据坐标转换为归一化父坐标（NPC，范围0-1），调整后再转回数据坐标。

示例代码：

library(ggplot2)

# 示例数据与参数
df <- data.frame(x = 1:10, y = sample(1:100, 10))
y_min <- 1
y_max <- 100
y_intercept <- 50
text_label <- "hello"
npc_offset <- 0.05 # 向下偏移绘图高度的5%

# 构建基础绘图对象
p_base <- ggplot(df, aes(x, y)) +
  geom_point() +
  scale_y_log10(limits = c(y_min, y_max)) +
  geom_hline(yintercept = y_intercept, color = "red")

# 获取Y轴比例尺并完成坐标转换
y_scale <- layer_scales(p_base)$y
y_npc <- y_scale$transform(y_intercept) # 将水平线Y值转为NPC坐标
text_y_npc <- y_npc - npc_offset # 调整NPC坐标
text_y <- y_scale$inverse(text_y_npc) # 转回数据坐标

# 添加文本并绘图
p_base +
  geom_text(
    aes(x = mean(x), y = text_y, label = text_label),
    hjust = 0.5,
    color = "blue"
  )

这种方法适合需要让文本位置与绘图区域整体比例绑定的场景，无论轴限如何变化，文本始终保持相对水平线的固定比例距离。

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