Replace all the ???s. These are answers on your moodle quiz.
Run all the individual code chunks to make sure the answers in this file correspond with your quiz answers
After you check all your code chunks run then you can knit it. It won’t knit until the ??? are replaced
The quiz assumes that you have watched the videos, downloaded (to your examples folder) and worked through the exercises in exercises_slides-50-61.Rmd

3.Pick one of your plots to save as your preview plot. Use the ggsave command at the end of the chunk of the plot that you want to preview.

Question: modify slide 51

Create a plot with the mpg dataset
add points with geom_point
- assign the variable displ to the x-axis
- assign the variable hwy to the y-axis
add facet_wrap to split the data into panels based on the manufacturer

Question: modify facet-ex-2

Create a plot with the mpg dataset
add bars with with geom_bar
- assign the variable manufacturer to the y-axis
add facet_grid to split the data into panels based on the class
- let scales vary across columns
- let space taken up by panels vary by columns

To help you complete this question use:

the patchwork slides and
the vignette: https://patchwork.data-imaginist.com/articles/patchwork.html Download the file spend_time.csv from moodle into directory for this post.
spend_time contains 10 years of data on how many hours Americans spend each day on 5 activities
read it into spend_time

?read.csv read.csv(file.choose(), header = TRUE)

Start with spend_time

extract observations for 2015
THEN create a plot with that data
ADD a barchart with with geom_col
- assign activity to the x-axis
- assign avg_hours to the y-axis
- assign activity to fill
ADD scale_y_continuous with breaks every hour from 0 to 6 hours
ADD labs to
- set subtitle to Avg hours per day: 2015
- set x and y to NULL so they won’t be labeled
assign the output to p1
display p1

Start with spend_time

THEN create a plot with it
ADD a barchart with with geom_col
- assign year to the x-axis
- assign avg_hours to the y-axis
- assign activity to fill
ADD labs to
- set subtitle to “Avg hours per day: 2010-2019”
- set x and y to NULL so they won’t be labeled
assign the output to p2
display p2

Use patchwork to display p1 on top of p2

Start with p_all

Start with p_all_no_legend

see how annotate the composition here: https://patchwork.data-imaginist.com/reference/plot_annotation.html
ADD plot_annotation set
- title to “How much time Americans spent on selected activities”
- caption to “Source: American Time of Use Survey, https://data.bls.gov/cgi-bin/surveymost?tu”

use spend_time from last question patchwork slides

Start with spend_time

extract observations for food prep
THEN create a plot with that data
ADD points with geom_point
- assign year to the x-axis
- assign avg_hours to the y-axis
ADD line with geom_smooth
- assign year to the x-axis
- assign avg_hours to the y-axis
ADD breaks on for every year on x axis with with scale_x_continuous
ADD labs to
- set subtitle to Avg hours per day: food prep
- set x and y to NULL so x and y axes won’t be labeled
assign the output to p4
display p4

Start with p4

Start with spend_time

create a plot with that data
ADD points with geom_point
- assign year to the x-axis
- assign avg_hours to the y-axis
- assign activity to color
- assign activity to group
ADD line with geom_smooth
- assign year to the x-axis
- assign avg_hours to the y-axis
- assign activity to color
- assign activity to group
ADD breaks on for every year on x axis with with scale_x_continuous
ADD coord_cartesian to change range on y axis to 0 to 6
ADD labs to
- set x and y to NULL so they won’t be labeled
assign the output to p6
display p6

Use patchwork to display p4 and p5 on top of p6