Module 5: Apply 4

Import data

# csv file
data <- read_csv("../00_data/myData.csv")
data

## # A tibble: 22,360 × 5
##    date       fuel     grade   formulation  price
##    <date>     <chr>    <chr>   <chr>        <dbl>
##  1 1990-08-20 gasoline regular all           1.19
##  2 1990-08-20 gasoline regular conventional  1.19
##  3 1990-08-27 gasoline regular all           1.25
##  4 1990-08-27 gasoline regular conventional  1.25
##  5 1990-09-03 gasoline regular all           1.24
##  6 1990-09-03 gasoline regular conventional  1.24
##  7 1990-09-10 gasoline regular all           1.25
##  8 1990-09-10 gasoline regular conventional  1.25
##  9 1990-09-17 gasoline regular all           1.27
## 10 1990-09-17 gasoline regular conventional  1.27
## # ℹ 22,350 more rows

State one question

does the price go down during trumps presidency # Plot data

ggplot(data = data) +
 geom_point(mapping = aes(x = date, y = price), position = "jitter")

Interpret