Manual code

Hand-styled code

library(ggplot2)
mtcars |>
  ggplot(aes(mpg, disp)) +
  geom_point() +
  geom_smooth(method = “lm”, formula = “y ~ x”)