```
library(tidyverse)
# Base R ----------------------------------------------
model<-lm(disp~mpg,data=mtcars)
plot(mtcars$mpg,mtcars$disp)
abline(model)
# Ggplot2 -----------------------------------------------------------------
mtcars %>%
ggplot(aes(mpg,disp))+
geom_point()
```

Now my question is how to add model into ggplot2 directly. Because the geom_abline function is asking for intercept and stuff. Is there a direct method for doing it.