Large annotated code

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