```r library(tidyverse) ggplot(mtcars, aes(x = hp, y = mpg)) + geom_point() + geom_smooth() ``` <img src="First_Presentation_files/figure-html/unnamed-chunk-1-1.png" width="672" /> --- ```r ggplot(mtcars, aes(x = hp, y = wt)) + geom_point() + geom_smooth() ``` <img src="First_Presentation_files/figure-html/unnamed-chunk-2-1.png" width="672" />