## My chart title (30 chars)

##### [Your name](linkedin site or other) 

Describe your chart here. Use `[link text](link)` to insert web links, use `*italics*` to produce *italics* and `**bold**` for **bold**. Tell readers why you chose this chart, why you think it matters, etc. Remember, this will be public so write something you're proud to have online. (150 words, max)


Build your chart: it must be self-contained in this file. 

```{r packages-data,echo=F,output=F, warning=FALSE,include=F}
#load your packages quietly
library(kableExtra)
library(readxl)
library(janitor)
library(tidyverse)
library(lubridate)
library(scales)
library(viridis)

knitr::opts_chunk$set(echo=FALSE)
```


```{r chunk title,warning=FALSE,echo=FALSE,include=FALSE}
#use this for quiet code

```


Set up your code chunks so that the figures look nice using something like this:

`{r chunk title,fig.width=10,dpi=200,warning=FALSE,include=T}`

Change the figure parameters to suit your plot, but don't go wider than 12. You should have a nice graph, in the window.

```{r sample,fig.width=10,dpi=200,warning=FALSE}
#this is just to show you that the graph output will work
ggplot(mtcars, aes(x=hp, y=mpg, color=as.factor(cyl))) +
    geom_point(size=3)+
   scale_color_brewer("Cylinders")

```

Tell readers a bit about yourself here (150 words, max)


Get it to knit (use the Render button if there's no knit button) so it looks nice, and make sure it's all self-contained (i.e. it downloads all the data and everything). Don't include any other formatting or headers at the top make it look just like this file.
