06-wrap-up.Rmd

---
title: "Wrap up"
output: github_document
---

<https://github.com/maurolepore/open-science-with-r>

**Before you start, collapse all chunks with Alt+o**



## Setup https://www.tidyverse.org/

* Use tidyverse packages.

```{r use-tidyverse-1}

```

```{r use-tidyverse-2}
library(_________)
```

```{r use-tidyverse-3}
library(tidyverse)
```



## Import https://readr.tidyverse.org/

* Read messy data from "data/gap_wide.csv".

```{r import-1}


```

```{r import-2}
messy <- readr::read_csv("_________________")

messy
```

```{r import-3}
messy <- readr::read_csv("data/gap_wide.csv")

messy
```



## Tidy https://tidyr.tidyverse.org/

* Pivot the data on everything except `continent` and `country`.
* Separate the messy column into `metric` and `year`.

```{r pivot-1}





```

```{r pivot-2}
tidy <- messy %>% 
  pivot_______(cols = -_________:-_______) %>% 
  # Watch out! year is a character vector, not a number
  ________(col = name, into = c("______", "____"))

tidy
```

```{r pivot-3}
tidy <- messy %>% 
  pivot_longer(cols = -continent:-country) %>% 
  # Watch out! year is a character vector, not a number
  separate(col = name, into = c("metric", "year"))

tidy
```



## Transform https://dplyr.tidyverse.org/

* Transform the year column from character to integer
* Filter it to include data since 1980.
* Select all columns except `country`.

```{r verbs-1}






```

```{r verbs-2}
polished <- tidy %>% 
  ______(year = as.integer(____)) %>%
  ______(year > ____) %>% 
  ______(-_______)

polished
```

```{r verbs-3}
polished <- tidy %>% 
  mutate(year = as.integer(year)) %>%
  filter(year > 1980) %>% 
  select(-country)

polished
```



## Visualize https://ggplot2.tidyverse.org/

Plot a model for each metric through time:

* Map `color` and `fill` to `continent`.
* Plot model with uncertainty around the mean.
* Facet by `metric` (free the `y` variable -- see `?scales`).

```{r plot-1}



```

```{r plot-2}
______(polished, ___(year, value, fill = _________, color = _________)) +
  geom_______() +
  ______wrap(~ ______, scales = "free_y")
```

```{r plot-3}
ggplot(polished, aes(year, value, fill = continent, color = continent)) +
  geom_smooth() +
  facet_wrap(~ metric, scales = "free_y")
```



## Communicate https://rmarkdown.rstudio.com/

* Knit to create a report in .pdf format, then in word format.