如何在ggplot2中通过点绘制45度线

我有一个对数刻度的散点图，其中垂直和水平参考线穿过 (1,1)（下面的虚线）。我想添加与虚线参考线成 45 度角的额外参考线，以便它们恰好平分虚线参考线创建的四个“部分”（例如，下面我刚刚通过眼睛添加的较细实线） 。我怎样才能用 ggplot 做到这一点？抱歉，如果它很简单，但我只是想不出该怎么做。

example_data <- data.frame(x = c(0, 5),
                           y = c(0, 50)
                           )

ggplot(example_data, aes(x = x, y = y)) +
  geom_vline(xintercept = 1, linetype = "dashed", size = 0.75) +
  geom_hline(yintercept = 1, linetype = "dashed", size = 0.75) +
  geom_abline(intercept = -10, slope = 11, size = 0.5) +  # Just eyeballed for illustration.
  geom_abline(intercept = 10, slope = -9, size = 0.5) +   # Just eyeballed for illustration.
  geom_point()

啊抱歉，我太蠢了。当我最初尝试时geom_abline(intercept = 0, slope = 1) + geom_abline(intercept = 2, slope = -1)它看起来不对，所以我想我需要采取不同的方式来做到这一点。但当然它看起来不正确，因为两个轴的比例如此不同 - 线条的角度should那些尺度就那么低。当坐标轴具有相同的比例时，表明该方法是正确的。

第一次尝试:

example_data <- data.frame(x = c(0, 5),
                           y = c(0, 50)
                           )

ggplot(example_data, aes(x = x, y = y)) +
  geom_vline(xintercept = 1, linetype = "dashed", size = 0.75) +
  geom_hline(yintercept = 1, linetype = "dashed", size = 0.75) +
  geom_abline(intercept = 0, slope = 1, size = 0.5) +
  geom_abline(intercept = 2, slope = -1, size = 0.5) +
  geom_point()

当轴刻度相同时:

example_data <- data.frame(x = c(0, 50),
                           y = c(0, 50)
                           )

ggplot(example_data, aes(x = x, y = y)) +
  geom_vline(xintercept = 1, linetype = "dashed", size = 0.75) +
  geom_hline(yintercept = 1, linetype = "dashed", size = 0.75) +
  geom_abline(intercept = 0, slope = 1, size = 0.5) +
  geom_abline(intercept = 2, slope = -1, size = 0.5) +
  geom_point()