Cereal

library(esquisse)
library(ggthemes)
library(ggplot2)
cereal <-read.csv("cereal.csv")


#CREATED THROUGH ESQUISSE PIVOT TABLE FUNCTION ADDIN
cereal1<- ggplot(cereal) +
 aes(x = calories, y = rating) +
 geom_point(size = 2.08, colour = "#26828e") +
 geom_smooth(span = 0.71) +
 labs(x = "Calories", y = "Ratings", title = "Sugars compared to Ratings", caption = "Suprisingly, ratings are lower as the cereal has more calories!") +
 ggthemes::theme_stata()

cereal1

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