joining data

class: left, top, inverse
background-image: url(https://images.unsplash.com/photo-1573625141506-77f6b5e9eb45?ixlib=rb-1.2.1&ixid=eyJhcHBfaWQiOjEyMDd9&auto=format&fit=crop&w=1050&q=80)
background-size: cover

# .large[Joining data]
### An exploration <br>with {flipbookr}<br>and {xaringan}

#### .right[Gina Reynolds<br>Photo Credit: Vlad Tchompalov]

---

---
name: joiningdata
## Exercise: *spread data, gather data*

Sometimes we'll need to join diverse data together from different sources.  Here let's create a contrived example.  We'll pretend that the data comes from various sources

---
## Exercise: *Create dataset 1 for contrived example*

---

```r
*library(gapminder)
```
]
 
.panel2-dataset_1-auto[

]

---
count: false

```r
library(gapminder)
*library(tidyverse)
```
]
 
.panel2-dataset_1-auto[

]

---
count: false

```r
library(gapminder)
library(tidyverse)
*gapminder
```
]
 
.panel2-dataset_1-auto[

```
# A tibble: 1,704 x 6
   country     continent  year lifeExp      pop gdpPercap
   <fct>       <fct>     <int>   <dbl>    <int>     <dbl>
 1 Afghanistan Asia       1952    28.8  8425333      779.
 2 Afghanistan Asia       1957    30.3  9240934      821.
 3 Afghanistan Asia       1962    32.0 10267083      853.
 4 Afghanistan Asia       1967    34.0 11537966      836.
 5 Afghanistan Asia       1972    36.1 13079460      740.
 6 Afghanistan Asia       1977    38.4 14880372      786.
 7 Afghanistan Asia       1982    39.9 12881816      978.
 8 Afghanistan Asia       1987    40.8 13867957      852.
 9 Afghanistan Asia       1992    41.7 16317921      649.
10 Afghanistan Asia       1997    41.8 22227415      635.
# … with 1,694 more rows
```
]

---
count: false

```r
library(gapminder)
library(tidyverse)
gapminder %>%
* select(country, lifeExp, year)
```
]
 
.panel2-dataset_1-auto[

```
# A tibble: 1,704 x 3
   country     lifeExp  year
   <fct>         <dbl> <int>
 1 Afghanistan    28.8  1952
 2 Afghanistan    30.3  1957
 3 Afghanistan    32.0  1962
 4 Afghanistan    34.0  1967
 5 Afghanistan    36.1  1972
 6 Afghanistan    38.4  1977
 7 Afghanistan    39.9  1982
 8 Afghanistan    40.8  1987
 9 Afghanistan    41.7  1992
10 Afghanistan    41.8  1997
# … with 1,694 more rows
```
]

---
count: false

```r
library(gapminder)
library(tidyverse)
gapminder %>%
  select(country, lifeExp, year) ->
* country_life_exp
```
]
 
.panel2-dataset_1-auto[

]

---
## Exercise: *Create dataset 2 for contrived example*

---

```r
*gapminder
```
]
 
.panel2-dataset_2-auto[

---
count: false

```r
gapminder %>%
* select(country, pop, year)
```
]
 
.panel2-dataset_2-auto[

```
# A tibble: 1,704 x 3
   country          pop  year
   <fct>          <int> <int>
 1 Afghanistan  8425333  1952
 2 Afghanistan  9240934  1957
 3 Afghanistan 10267083  1962
 4 Afghanistan 11537966  1967
 5 Afghanistan 13079460  1972
 6 Afghanistan 14880372  1977
 7 Afghanistan 12881816  1982
 8 Afghanistan 13867957  1987
 9 Afghanistan 16317921  1992
10 Afghanistan 22227415  1997
# … with 1,694 more rows
```
]

---
count: false

```r
gapminder %>%
  select(country, pop, year) ->
* country_pop
```
]
 
.panel2-dataset_2-auto[

]

---

## Exercise: *Join contrived datasets 1 and 2*

A natural join merges on any variable names found in common between the data sets and occurs when the by argument is not specified. Here we'll just be explicit about how to join the two dataframes.

---

```r
*country_pop
```
]
 
.panel2-merging_data-auto[

---
count: false

```r
country_pop %>%
* full_join(country_life_exp,
*           by = c("country",
*                  "year"))
```
]
 
.panel2-merging_data-auto[

```
# A tibble: 1,704 x 4
   country          pop  year lifeExp
   <fct>          <int> <int>   <dbl>
 1 Afghanistan  8425333  1952    28.8
 2 Afghanistan  9240934  1957    30.3
 3 Afghanistan 10267083  1962    32.0
 4 Afghanistan 11537966  1967    34.0
 5 Afghanistan 13079460  1972    36.1
 6 Afghanistan 14880372  1977    38.4
 7 Afghanistan 12881816  1982    39.9
 8 Afghanistan 13867957  1987    40.8
 9 Afghanistan 16317921  1992    41.7
10 Afghanistan 22227415  1997    41.8
# … with 1,694 more rows
```
]

---
count: false

```r
country_pop %>%
  full_join(country_life_exp,
            by = c("country",
                   "year")) ->
* merged_data
```
]
 
.panel2-merging_data-auto[

]