geom_abline() 强制 y 轴为 0

Question

有没有办法在不改变比例的情况下添加geom_abline()？我做了一些挖掘，但没有找到任何专门解决这个问题的东西，并且手动重新缩放轴会删除 abline：

library(tidyverse)

# generate noise that should be roughly 1:1
plot <- 
  runif(100, 3000, 6000) %>%
  as_tibble() %>%
  rename(x = value) %>%
  rowwise() %>%
  mutate(y = rnorm(1, x, 150)) %>%
  ggplot(aes(x, y)) +
  geom_point()

plot

# geom_abline forces y-axis to 0!
plot +
  geom_abline()

# adding in manual scales removes geom_abline
plot +
  geom_abline() +
  scale_y_continuous(limits = c(3000, 6000))
#> Warning: Removed 1 rows containing missing values (geom_abline).

# reording when `scale_y_continous()` is called doesn't help unfortunately
plot +
  scale_y_continuous(limits = c(3000, 6000)) +
  geom_abline()
#> Warning: Removed 1 rows containing missing values (geom_abline).

packageVersion("ggplot2")
#> [1] '3.3.4'

^{由 reprex 包 (v2.0.1)}