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