---
title: "Data Challenge #4"
author: "Rodrigo Zamith"
output:
  html_document:
    df_print: paged
    theme: spacelab
---

```{r global_options, include=FALSE}
knitr::opts_chunk$set(fig.width=12, fig.height=8, warning=FALSE)
```

Complete instructions for this assignment may be [found here](challenge_4.html).

### Load Data

We'll begin by loading the dataset:

```{r}
library(tidyverse)
ppd <- read_csv("http://projects.rodrigozamith.com/datastorytelling/data/public_plans_database.csv", guess_max=3000)
```


### Data Visualization #1

#### Finished Visualization

You can view the first visualization by [clicking here](SHARE_URL_HERE).

#### Data Analysis

Below is all of the code used to analyze and generate the dataset used for the first visualization:

```{r}
# Your code here
```

#### Rationale

Please explain your objective and rationale here, per the Challenge instructions.

---

### Data Visualization #2

#### Finished Visualization

You can view the second visualization by [clicking here](SHARE_URL_HERE).

#### Data Analysis

Below is all of the code used to analyze and generate the dataset used for the second visualization:

```{r}
# Your code here
```

#### Rationale

Please explain your objective and rationale here, per the assignment instructions.
