Analyzing data for #tidytuesday week of 11/20/2018 (source)

# LOAD PACKAGES AND PARSE DATA
library(tidyverse)
library(scales)
library(RColorBrewer)
library(forcats)

thanksgiving_raw <- read_csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2018/2018-11-20/thanksgiving_meals.csv")

thanksgiving <- 
  thanksgiving_raw %>%
  filter(celebrate != 'No')