--- title: "HW 5 - ggplot2" author: "Shuoyun'Jason'Yang" date: "Due Monday, 11/2 by Midnight" output: word_document --- ```{r setup, include=FALSE} knitr::opts_chunk$set(echo = T, comment=NA, message=F, warning=F, eval=T) library(ggplot2) library(dplyr) library(scales) ``` # Part 1 - Movies and Money ### Data prep The data for this part contains info on the top 50 films by worldwide gross. Please clean/structure the data in the following format (pay attention to columns and variable types) __SEE HANDOUT FOR str() output__ ```{r echo=T} movies <- read.csv('https://s3.amazonaws.com/douglas2/data/movies.csv', stringsAsFactors = F) str(movies) ``` \newpage ### Plot 1 - Average gross by genre since 2000 __See handout for plot and instructions__ ```{r} # Code Here ``` \newpage ### Plot 2 - Gross per film by release year and genre __See handout for plot and instructions__ ```{r} # Code here ``` \newpage ### Plot 3 - Faceted Scatterplot __See handout for plot and instructions__ ```{r} # Code here ```
