IC ggplot2

library(tidyverse)

## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --

## v ggplot2 3.3.5     v purrr   0.3.4
## v tibble  3.1.6     v dplyr   1.0.8
## v tidyr   1.2.0     v stringr 1.4.0
## v readr   2.1.2     v forcats 0.5.1

## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

#BASE R MAPPING

data("mpg") 

mpg <- filter(mpg, cyl != 5)
mpg$cyl < as.factor(mpg$cyl)

## Warning in Ops.factor(mpg$cyl, as.factor(mpg$cyl)): '<' not meaningful for
## factors

##   [1] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
##  [26] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
##  [51] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
##  [76] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
## [101] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
## [126] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
## [151] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
## [176] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
## [201] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
## [226] NA NA NA NA NA

plot(hwy ~ displ, data = mpg,
     col=mpg$cyl, pch=c(1:4), cex=1.25,
     main="Highway Mileage vs Engine Displacement and Engine Cycle")

#GGPLOT

##MPG

library(ggplot2)

ggplot(data=mpg, aes(x=displ, y= hwy)) +
  geom_point()

ggplot(data = mpg, aes(x=displ, y= hwy)) +
  geom_smooth()

## `geom_smooth()` using method = 'loess' and formula 'y ~ x'

ggplot(mpg,aes(cty, hwy)) + geom_point()

##DIAMONDS

ggplot(diamonds, aes(carat, price)) + geom_line() + geom_point()

##Economics

ggplot(economics, aes(date, unemploy)) + geom_line() + geom_smooth()

## `geom_smooth()` using method = 'loess' and formula 'y ~ x'