未调整 (?) 趋势线，ggplot [R]

如何解决未调整 (?) 趋势线，ggplot [R]

也许这是一个理解错误，但使用此 data 和代码...

data %>% 
  ggplot(aes(x,y)) + geom_point() +
  geom_smooth(method = "lm",se = T,fullrange = T) +
  ggpubr::stat_cor(label.x = 3) +
  scale_y_log10(breaks = scales::trans_breaks("log10",function(x) 10^x),labels = scales::trans_format("log10",scales::math_format(10^.x)))

...我得到这个情节：

我希望有一条不同的趋势线（手动绘制为红色），我猜测这些 -Inf 值正在以某种方式产生影响。任何人都可以帮助我理解错误吗？谢谢。