external themes

# external themes
## a flipbook | made with Xaringan
### <br><br>Gina Reynolds, April 2020
### <br>

---

Now let's look at available themes from a couple external packages, {ggthemes} and {ggdark}.

You will need to install these packages first in order to use them.

---

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
  ggthemes::theme_base()   
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_1_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
* ggthemes::theme_calc()
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_2_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
* ggthemes::theme_economist()
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_3_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
* ggthemes::theme_economist_white()
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_4_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
* ggthemes::theme_excel()
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_5_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
* ggthemes::theme_excel_new()
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_6_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
* ggthemes::theme_few()
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_7_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
* ggthemes::theme_fivethirtyeight()
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_8_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
* ggthemes::theme_gdocs()
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_9_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
* ggthemes::theme_hc()
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_10_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
* ggthemes::theme_igray()
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_11_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
* ggthemes::theme_map()
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_12_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
* ggthemes::theme_solarized()
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_13_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
* ggthemes::theme_solarized_2()
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_14_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
* ggthemes::theme_solid()
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_15_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
* ggthemes::theme_stata()
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_16_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
* ggthemes::theme_tufte()
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_17_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
* ggthemes::theme_wsj()
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_18_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
* ggdark::dark_theme_bw()
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_19_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
* ggdark::dark_theme_classic()
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_20_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
* ggdark::dark_theme_dark()
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_21_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
* ggdark::dark_theme_gray()
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_22_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
* ggdark::dark_theme_light()
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_23_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
* ggdark::dark_theme_linedraw()
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_24_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
* ggdark::dark_theme_minimal()
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_25_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
library(tidyverse)  
library(gapminder)  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot") +  
* ggdark::dark_theme_test()
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemes_rotate_26_output-1.png" width="100%" />
]]

---

A different approach is that of {ggthemr}.  The idea is to set the theme and forget it.   It is not added to the ggplot, but set before plotting begins.

---

```r
ggthemr::ggthemr('copper')  
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot")  
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemr_rotate_1_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
*ggthemr::ggthemr('dust')
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot")  
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemr_rotate_2_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
*ggthemr::ggthemr('chalk')
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot")  
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemr_rotate_3_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
*ggthemr::ggthemr('flat')
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot")  
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemr_rotate_4_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
*ggthemr::ggthemr('flat dark')
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot")  
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemr_rotate_5_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
*ggthemr::ggthemr('camoflauge')
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot")  
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemr_rotate_6_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
*ggthemr::ggthemr('copper')
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot")  
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemr_rotate_7_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
*ggthemr::ggthemr('earth')
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot")  
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemr_rotate_8_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
*ggthemr::ggthemr('fresh')
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot")  
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemr_rotate_9_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
*ggthemr::ggthemr('grape')
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot")  
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemr_rotate_10_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
*ggthemr::ggthemr('grass')
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot")  
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemr_rotate_11_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
*ggthemr::ggthemr('greyscale')
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot")  
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemr_rotate_12_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
*ggthemr::ggthemr('light')
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot")  
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemr_rotate_13_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
*ggthemr::ggthemr('lilac')
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot")  
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemr_rotate_14_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
*ggthemr::ggthemr('pale')
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot")  
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemr_rotate_15_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
*ggthemr::ggthemr('sea')
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot")  
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemr_rotate_16_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
*ggthemr::ggthemr('sky')
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot")  
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemr_rotate_17_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
*ggthemr::ggthemr('solarized')
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot")  
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemr_rotate_18_output-1.png" width="100%" />
]]
---
class: split-40
count: false

```r
*ggthemr::ggthemr_reset()
gapminder %>%  
  filter(year == 1992) %>%  
  ggplot() +  
  aes(x = gdpPercap, y = lifeExp) +  
  geom_point(alpha = .8, shape = 21,  
             fill = "white") +  
  aes(col = continent, fill = continent) +  
  geom_point(alpha = .3, shape = 21) +  
  aes(size = pop) +  
  scale_size(guide = F) +  
  labs(title = "Wealth and expected longevity\n in 1992") +  
  labs(subtitle = "Data from gapminder package in R") +  
  labs(x = "GDP per Capita") +  
  labs(y = "Life Expectency") +  
  labs(tag = "Plot 1") +  
  labs(col = "Continent", fill = "Continent") +  
  labs(caption = "Vis: @EvaMaeRey with ggplot")  
```
]]
.column[.content[
<img src="external_themes_files/figure-html/ggthemr_rotate_19_output-1.png" width="100%" />
]]

.column-left {
  float: left;
  width: 33.333%;
}

.column-right {
  float: right;
  width: 33.333%;
}

.column-center {
  display: inline-block;
  width: 33.333%;
}
</style>