---
title: |
  | STAT 408 - Week 7
  | Advanced R Graphics and ggplot2
output: html_document
---

```{r setup, include=FALSE}
library(ggplot2)
library(dplyr)
library(knitr)
knitr::opts_chunk$set(echo = TRUE)
knitr::knit_hooks$set(mysize = function(before, options, envir) {
  if (before) 
    return(options$size)
})
knitr::opts_chunk$set(fig.width=4, fig.height=3, fig.align = 'center') 
```



# Advanced R Graphics

#### Exercise: Advanced Plotting
Use the Seattle Housing Data Set [http://math.montana.edu/ahoegh/teaching/stat408/datasets/SeattleHousing.csv](http://math.montana.edu/ahoegh/teaching/stat408/datasets/SeattleHousing.csv) to create an interesting graphic, include informative titles, labels, and add an annotation.

```{r, echo=T,fig.align='center'}
Seattle.in <- read.csv('http://math.montana.edu/ahoegh/teaching/stat408/datasets/SeattleHousing.csv', stringsAsFactors = F)

```


#### Exercise: ggplot2

Now use `ggplot2` to create an interesting graph using the Seattle Housing data set.