gganimate

# gganimate
## a ‘flipbookr’ tutorial
### Gina Reynolds

---

- transition - change the data
- viewpoint - changing field of view
- shadows - memory

---

```r
options(gganimate.nframes = 50)  
library(tidyverse)  
library(gapminder)  
ggplot(data = gapminder) +  
  aes(x = gdpPercap) +  
  aes(y = lifeExp) +  
  aes(group = country) +  
  geom_point() +  
  aes(color = continent) +  
  aes(size = pop) +  
  scale_x_log10() +  
  gganimate::transition_time(time = year) +  
  NULL ->  
g

animate(plot = g)  
```
]
 
.right-panel-transitions-rotate[
![](gganimate_files/figure-html/transitions_rotate_1_output-1.gif)
]

---
class: split-40
count: false

```r
options(gganimate.nframes = 50)  
library(tidyverse)  
library(gapminder)  
ggplot(data = gapminder) +  
  aes(x = gdpPercap) +  
  aes(y = lifeExp) +  
  aes(group = country) +  
  geom_point() +  
  aes(color = continent) +  
  aes(size = pop) +  
  scale_x_log10() +  
* gganimate::transition_reveal(along = year) +
  NULL ->  
g

animate(plot = g)  
```
]
 
.right-panel-transitions-rotate[
![](gganimate_files/figure-html/transitions_rotate_2_output-1.gif)
]

---
class: split-40
count: false

```r
options(gganimate.nframes = 50)  
library(tidyverse)  
library(gapminder)  
ggplot(data = gapminder) +  
  aes(x = gdpPercap) +  
  aes(y = lifeExp) +  
  aes(group = country) +  
  geom_point() +  
  aes(color = continent) +  
  aes(size = pop) +  
  scale_x_log10() +  
* gganimate::transition_manual(frames = continent) +
  NULL ->  
g

animate(plot = g)  
```
]
 
.right-panel-transitions-rotate[
![](gganimate_files/figure-html/transitions_rotate_3_output-1.gif)
]

---

# Graphing as time series

---

```r
options(gganimate.nframes = 10)  
library(gapminder)  
ggplot(data = gapminder) +  
  aes(x = year) +  
  aes(y = lifeExp) +  
  aes(group = country) +  
  geom_point(size = 8) +  
  aes(color = continent) +  
  aes(size = pop) +  
  facet_wrap(~ continent) +  
  gganimate::transition_time(time = year) +  
  NULL ->  
g

animate(plot = g)  
```
]
 
.right-panel-time_series_point-rotate[
![](gganimate_files/figure-html/time_series_point_rotate_1_output-1.gif)
]

---
class: split-40
count: false

```r
options(gganimate.nframes = 10)  
library(gapminder)  
ggplot(data = gapminder) +  
  aes(x = year) +  
  aes(y = lifeExp) +  
  aes(group = country) +  
  geom_point(size = 8) +  
  aes(color = continent) +  
  aes(size = pop) +  
  facet_wrap(~ continent) +  
* gganimate::transition_reveal(along = year) +
  NULL ->  
g

animate(plot = g)  
```
]
 
.right-panel-time_series_point-rotate[
![](gganimate_files/figure-html/time_series_point_rotate_2_output-1.gif)
]

---
class: split-40
count: false

```r
options(gganimate.nframes = 10)  
library(gapminder)  
ggplot(data = gapminder) +  
  aes(x = year) +  
  aes(y = lifeExp) +  
  aes(group = country) +  
  geom_point(size = 8) +  
  aes(color = continent) +  
  aes(size = pop) +  
  facet_wrap(~ continent) +  
* gganimate::transition_manual(frames = continent) +
  NULL ->  
g

animate(plot = g)  
```
]
 
.right-panel-time_series_point-rotate[
![](gganimate_files/figure-html/time_series_point_rotate_3_output-1.gif)
]

---

# geom_line(),  geom_path

---

```r
options(gganimate.nframes = 25)  
library(gapminder)  
ggplot(data = gapminder) +  
  aes(x = year) +  
  aes(y = lifeExp) +  
  aes(group = country) +  
  geom_line() +  
  geom_point(size = 8) +  
  aes(color = continent) +  
  aes(size = pop) +  
  facet_wrap(~ continent) +  
  gganimate::transition_reveal(along = year) +  
  NULL ->  
g

animate(plot = g)  
```
]
 
.right-panel-time_series-1[
![](gganimate_files/figure-html/time_series_1_1_output-1.gif)
]

---

```r
options(gganimate.nframes = 30)  
library(gapminder)  
ggplot(data = gapminder) +  
  aes(x = gdpPercap) +  
  aes(y = lifeExp) +  
  aes(group = country) +  
  geom_path() +  
  geom_point(size = 5) +  
  aes(color = continent) +  
  scale_x_log10() +  
  facet_wrap(~ continent) +  
  gganimate::transition_reveal(along = year) +  
  NULL ->  
g

animate(plot = g)  
```
]
 
.right-panel-time_series_path-1[
![](gganimate_files/figure-html/time_series_path_1_1_output-1.gif)
]