创建与我的`geom_smooth（method = lm）'线平行的线

Question

library(tidyverse)
ggplot(mpg, aes(cty, hwy)) + 
  geom_point() + 
  geom_smooth(method = lm)

我希望两条紫色线平行于我的geom_smooth(method = lm)行。 每条线应与geom_smooth(method = lm)线相距10个单位。 一条线在geom_smooth(method = lm)线的上方，另一条线在geom_smooth(method = lm)线的下方。

我该如何完成？

Answer 1

就像这个答案所暗示的那样，似乎没有一种自然的方式来改变线。 然后，我们可以做的是使用多个具有不同偏移量的geom_smooth ：

ggplot(mpg, aes(cty, hwy)) + 
  geom_point() + 
  lapply(c(-10, 0, 10), function(o)
    geom_smooth(method = lm, formula = y + o ~ x))