Assignment 3

library(tidyverse)
library(ggplot2)
library(lubridate)
ice_movies <- read_delim("https://query.data.world/s/pmbfldxflx7ttdyfs23cx3abehcl5c", 
              ";", escape_double = FALSE, trim_ws = TRUE)

options(scipen = 999)
ice_movies %>%
  filter(rank.this.week == 1) %>% 
  top_n(7) %>% 
  ggplot(aes(x = film.title, y = total.box.o.to.date)) +
  geom_bar(stat = 'identity', fill = "blue") + 
  scale_y_continuous(labels = scales::comma) +
  xlab("Film Title") +
  ylab("Total Box Revenue") +
  coord_flip() +
  ggtitle("Top Grossing Revenue of Films Once Ranked #1") +
  theme_minimal()