在R语言对数x轴上计算geom_line交点的问题求助

你的问题核心在于：ggplot对x轴做了log2转换，但线性模型是基于原始x值拟合的，导致绘制的直线在log轴上变成曲线，且计算的交点位置也不符合转换后的轴尺度。以下是两种可行的解决方案：

方案一：基于log2转换后的x值拟合模型 #

先对x做log2转换，再拟合线性模型，这样模型的线性关系会对应log轴上的直线，同时计算交点时要注意转换回原始x值：

library(data.table)
library(ggplot2)

x <- c(0.1, 0.2)
y <- c(0.2, 0.4)

dt <- data.table(x = x, y = y)
dt[, log2_x := log2(x)]  # 生成log2转换后的x列

# 拟合y ~ log2(x)的线性模型
dt_lm <- lm(y ~ log2_x, data = dt)
dt_slope <- coef(dt_lm)[["log2_x"]]
dt_inter <- coef(dt_lm)[["(Intercept)"]]

# 计算y=0.3对应的log2(x)值，再反转换为原始x
log2_x_intersect <- (0.3 - dt_inter) / dt_slope
dt_x <- 2^log2_x_intersect

# 绘图：此时geom_line会在log轴上显示为直线
ggplot(dt, aes(x, y)) +
  geom_line() +
  geom_segment(aes(x = 0, xend = dt_x, y = 0.3, yend = 0.3), color = "red") +
  geom_segment(aes(x = dt_x, xend = dt_x, y = 0, yend = 0.3), color = "red") +
  scale_x_continuous(trans = "log2")

方案二：使用ggplot内置的stat_smooth自动拟合 #

直接在ggplot中指定拟合公式为y ~ log2(x)，无需手动计算模型参数，ggplot会自动适配log轴的尺度：

library(data.table)
library(ggplot2)

x <- c(0.1, 0.2)
y <- c(0.2, 0.4)

dt <- data.table(x = x, y = y)
dt[, log2_x := log2(x)]
dt_lm <- lm(y ~ log2_x, data = dt)
log2_x_intersect <- (0.3 - coef(dt_lm)[["(Intercept)"]]) / coef(dt_lm)[["log2_x"]]
dt_x <- 2^log2_x_intersect

ggplot(dt, aes(x, y)) +
  geom_line() +
  stat_smooth(method = "lm", formula = y ~ log2(x), se = FALSE, color = "black") +
  geom_hline(yintercept = 0.3, color = "red") +
  geom_vline(xintercept = dt_x, color = "red") +
  scale_x_continuous(trans = "log2")

为什么原始代码无法正常显示？ #

原始模型是y = a + b*x，当x轴做log2转换后，实际绘制的x是log2(x)，此时原模型变为y = a + b*2^log2(x)，这是指数曲线而非直线，所以你看到的geom_line不是预期的线性形态。只有让模型基于log2(x)建立线性关系，才能在log轴上显示为直线。

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