geom_abline在scale_y_continuous(trans="log10")下的定位与轴范围问题

1. geom_abline偏移问题：scale_y_continuous(trans="log10")会对所有y相关的美学参数执行对数转换，但log₁₀(0)无数学意义，ggplot自动将截距0转换为log₁₀(1)=0，对应原始y值为1，导致线偏移到y=1位置。
2. 负数与轴范围报错问题：log₁₀变换仅支持正数，原始数据中y≤0的点会被自动过滤（左下角点消失）；设置包含负数的limits时，log₁₀(-5)无意义，触发'from' must be a finite number错误。

方案1：伪对数变换（推荐，兼容0和负数） #

使用pseudo_log变换，它既保留对数轴对大数的缩放特性，又能处理0和负数，完美适配你的数据场景：

df <- data.frame(x= -5:5, y= -5:5)

ggplot(data= df, mapping= aes(x= x, y= y)) +
  geom_point() +
  geom_hline(yintercept= 0, linetype="solid") + # 直接指定原始y=0的水平线，无需转换
  scale_y_continuous(trans= "pseudo_log", limits = c(-5, 5))

• geom_hline比geom_abline更适合绘制水平线，直接基于原始y值定位，无需考虑变换影响；
• pseudo_log会自动映射0和负数到可显示的轴范围，所有数据点都能正常显示，设置包含负数的limits也不会报错。

方案2：手动转换截距（仅适用于正数场景） #

如果仅需处理正数区域，可手动将截距转换为log₁₀后的数值，但此方案无法显示y≤0的点：

ggplot(data= df, mapping= aes(x= x, y= y)) +
  geom_point(data = subset(df, y > 0)) + # 仅显示正数点
  geom_abline(intercept= log10(1e-6), slope= 0) + # 用极小值近似y=0的位置
  scale_y_continuous(trans= "log10", limits = c(1e-6, 5))

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