There's a great quick-look ggplot for x,y data that will give a quick look at y ~ x with an lm smoother. Using the famous mtcars dataset
suppressPackageStartupMessages(library(dplyr))
suppressPackageStartupMessages(library(ggplot2))
mtcars %>% select(mpg,wt) -> dat
p <- ggplot(dat, aes(wt,mpg))
p + geom_point() + geom_smooth(method="lm")

Created on 2020-03-02 by the reprex package (v0.3.0)
You can also create a line showing the intercept and slope from the lm model and various diagnostic plots.