title: "Homework 3 solutions" author: "Jeff Goldsmith" date: '`r format(Sys.time(), "%Y-%m-%d")`' output: github_document --- ```{r setup, include=FALSE} library(tidyverse) library(patchwork) library(p8105.datasets) knitr::opts_chunk$set( echo = TRUE, warning = FALSE, fig.width = 8, fig.height = 6, out.width = "90%" ) theme_set(theme_minimal() + theme(legend.position = "bottom")) options( ggplot2.continuous.colour = "viridis", ggplot2.continuous.fill = "viridis" ) scale_colour_discrete = scale_colour_viridis_d scale_fill_discrete = scale_fill_viridis_d ``` ### Due date Due: October 13 at 11:59pm. ### Points