3-gapminder_avg.Rmd

---
title: "Gapminder Average"
author: "Angela Zoss"
date: "2/1/2018"
output: github_document
---

## Setup your environment

```{r}

# Load required libraries

library(tidyverse)

```

## Load your data

```{r}

# data comes from http://www.gapminder.org/

gap <- read_csv("data/gapminder_avg.csv")
names(gap) <- make.names(names(gap), unique=TRUE)

```

## Try to reproduce this graphic

![](images/gapminder-goal.png)

```{r}



```