Grammar of data wrangling

Go to the course GitHub organization to get started.

library(tidyverse)
library(scales)

hotels <- read_csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2020/2020-02-11/hotels.csv")

Recreate the visualization from the slides.

# add code here