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

Question

item2

我希望两条紫色线平行于我的library(tidyverse) ggplot(mpg, aes(cty, hwy)) + geom_point() + geom_smooth(method = lm) 行。每行应与geom_smooth(method = lm)行相距10个单位。一行将在geom_smooth(method = lm)行的上方，另一行将在geom_smooth(method = lm)行的下方。

我如何做到这一点？

Answer 1

正如this answer所建议的那样，似乎没有一种自然的方式来移动直线。然后，我们可以做的是使用多个geom_smooth并使用不同的偏移量：

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