Wrangle all the way!

AE 02

Setup

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

Part 1 - Cost of daily hotel stay

Part 2 - Number of monthly bookings