CS&SS 569 Visualizing Data and Models

.title[
# CS&SS 569 Visualizing Data and Models
]
.subtitle[
## Lab 4: advanced ggplot2
]
.author[
### Brian Leung
]
.institute[
### Department of Political Science, UW
]
.date[
### 2024-01-26
]

---

## Introduction

- Focus on small multiple in `ggplot2`

- Visualize many panels, or many models

- When to use `facet_grid()` vs. `facet_wrap()`

- Use juxtaposition thoughtfully to facilitates comparison

- Continue to exploit `scale_...()` and introduce new packages such as `ggstance`

---

## Many panels: Nobel prize winners

- Dataset taken from this [#TidyTuesday](https://github.com/rfordatascience/tidytuesday/tree/master/data/2019/2019-05-14) project

- Each row is an individual winner of Nobel Prize

- Key variables includes:

variable | description
--------| -----------
prize_year	|Year that Nobel Prize was awarded
category	|Field of study/category
laureate_id	|ID assigned to each winner
full_name	|name of the winner
gender	|character	binary gender of the winner
organization_country	|character	organization country
prize_share	|Share eg 1 of 1, 1 of 2, 1 of 4, etc

---

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

]

---
count: false
 
## Many panels: Nobel prize winners
.panel1-nobel1-auto[

```r
library(tidyverse)
*library(lubridate)
```
]
 
.panel2-nobel1-auto[

]

---
count: false
 
## Many panels: Nobel prize winners
.panel1-nobel1-auto[

```r
library(tidyverse)
library(lubridate)
*library(RColorBrewer)
```
]
 
.panel2-nobel1-auto[

]

---
count: false
 
## Many panels: Nobel prize winners
.panel1-nobel1-auto[

```r
library(tidyverse)
library(lubridate)
library(RColorBrewer)
*library(ggrepel)
```
]
 
.panel2-nobel1-auto[

]

---
count: false
 
## Many panels: Nobel prize winners
.panel1-nobel1-auto[

```r
library(tidyverse)
library(lubridate)
library(RColorBrewer)
library(ggrepel)
*library(ggstance)
```
]
 
.panel2-nobel1-auto[

]

---
count: false
 
## Many panels: Nobel prize winners
.panel1-nobel1-auto[

```r
library(tidyverse)
library(lubridate)
library(RColorBrewer)
library(ggrepel)
library(ggstance)
*library(scales)
```
]
 
.panel2-nobel1-auto[

]

---
count: false
 
## Many panels: Nobel prize winners
.panel1-nobel1-auto[

```r
library(tidyverse)
library(lubridate)
library(RColorBrewer)
library(ggrepel)
library(ggstance)
library(scales)

*nobel <- read_csv("data/nobel.csv")
```
]
 
.panel2-nobel1-auto[

]

---
count: false
 
## Many panels: Nobel prize winners
.panel1-nobel1-auto[

```r
library(tidyverse)
library(lubridate)
library(RColorBrewer)
library(ggrepel)
library(ggstance)
library(scales)

nobel <- read_csv("data/nobel.csv")

*head(nobel)
```
]
 
.panel2-nobel1-auto[

```
# A tibble: 6 × 7
  prize_year category   laureate_id full_name        gender organization_country
       <dbl> <chr>            <dbl> <chr>            <chr>  <chr>               
1       1901 Physics              1 Wilhelm Conrad … Male   Germany             
2       1901 Chemistry          160 Jacobus Henricu… Male   Germany             
3       1901 Medicine           293 Emil Adolf von … Male   Germany             
4       1901 Peace              462 Jean Henry Duna… Male   <NA>                
5       1901 Peace              463 Frédéric Passy   Male   <NA>                
6       1901 Literature         569 Sully Prudhomme  Male   <NA>                
# ℹ 1 more variable: prize_share <chr>
```
]

---

count: false
 
## Many panels: Distribution of Nobel prize winners
.panel1-nobel2-auto[

```r
# select top 5 countries
*nobel
```
]
 
.panel2-nobel2-auto[

```
# A tibble: 881 × 7
   prize_year category   laureate_id full_name       gender organization_country
        <dbl> <chr>            <dbl> <chr>           <chr>  <chr>               
 1       1901 Physics              1 Wilhelm Conrad… Male   Germany             
 2       1901 Chemistry          160 Jacobus Henric… Male   Germany             
 3       1901 Medicine           293 Emil Adolf von… Male   Germany             
 4       1901 Peace              462 Jean Henry Dun… Male   <NA>                
 5       1901 Peace              463 Frédéric Passy  Male   <NA>                
 6       1901 Literature         569 Sully Prudhomme Male   <NA>                
 7       1902 Physics              2 Hendrik Antoon… Male   Netherlands         
 8       1902 Physics              3 Pieter Zeeman   Male   Netherlands         
 9       1902 Chemistry          161 Hermann Emil F… Male   Germany             
10       1902 Medicine           294 Ronald Ross     Male   United Kingdom      
# ℹ 871 more rows
# ℹ 1 more variable: prize_share <chr>
```
]

---
count: false
 
## Many panels: Distribution of Nobel prize winners
.panel1-nobel2-auto[

```r
# select top 5 countries
nobel %>%
* count(organization_country)
```
]
 
.panel2-nobel2-auto[

```
# A tibble: 29 × 2
   organization_country                  n
   <chr>                             <int>
 1 Alsace (then Germany, now France)     1
 2 Argentina                             2
 3 Australia                             5
 4 Austria                               6
 5 Belgium                               5
 6 Canada                                7
 7 China                                 1
 8 Czechoslovakia                        1
 9 Denmark                               8
10 Finland                               1
# ℹ 19 more rows
```
]

---
count: false
 
## Many panels: Distribution of Nobel prize winners
.panel1-nobel2-auto[

```r
# select top 5 countries
nobel %>%
  count(organization_country) %>%
* drop_na()
```
]
 
.panel2-nobel2-auto[

```
# A tibble: 28 × 2
   organization_country                  n
   <chr>                             <int>
 1 Alsace (then Germany, now France)     1
 2 Argentina                             2
 3 Australia                             5
 4 Austria                               6
 5 Belgium                               5
 6 Canada                                7
 7 China                                 1
 8 Czechoslovakia                        1
 9 Denmark                               8
10 Finland                               1
# ℹ 18 more rows
```
]

---
count: false
 
## Many panels: Distribution of Nobel prize winners
.panel1-nobel2-auto[

```r
# select top 5 countries
nobel %>%
  count(organization_country) %>%
  drop_na() %>%
* slice_max(order_by = n, n = 5)
```
]
 
.panel2-nobel2-auto[

```
# A tibble: 5 × 2
  organization_country         n
  <chr>                    <int>
1 United States of America   341
2 United Kingdom              89
3 Germany                     66
4 France                      36
5 Switzerland                 21
```
]

---
count: false
 
## Many panels: Distribution of Nobel prize winners
.panel1-nobel2-auto[

```r
# select top 5 countries
nobel %>%
  count(organization_country) %>%
  drop_na() %>%
  slice_max(order_by = n, n = 5) %>%
* pull(organization_country)
```
]
 
.panel2-nobel2-auto[

```
[1] "United States of America" "United Kingdom"          
[3] "Germany"                  "France"                  
[5] "Switzerland"             
```
]

---
count: false
 
## Many panels: Distribution of Nobel prize winners
.panel1-nobel2-auto[

```r
# select top 5 countries
nobel %>%
  count(organization_country) %>%
  drop_na() %>%
  slice_max(order_by = n, n = 5) %>%
  pull(organization_country) ->
* top5_country
```
]
 
.panel2-nobel2-auto[

]

---

count: false
 
## Many panels: Distribution of Nobel prize winners
.panel1-nobel3-auto[

```r
# filter obs from top 5 countries; create date column
*nobel
```
]
 
.panel2-nobel3-auto[

---
count: false
 
## Many panels: Distribution of Nobel prize winners
.panel1-nobel3-auto[

```r
# filter obs from top 5 countries; create date column
nobel %>%
* filter(organization_country %in% top5_country)
```
]
 
.panel2-nobel3-auto[

```
# A tibble: 553 × 7
   prize_year category  laureate_id full_name        gender organization_country
        <dbl> <chr>           <dbl> <chr>            <chr>  <chr>               
 1       1901 Physics             1 Wilhelm Conrad … Male   Germany             
 2       1901 Chemistry         160 Jacobus Henricu… Male   Germany             
 3       1901 Medicine          293 Emil Adolf von … Male   Germany             
 4       1902 Chemistry         161 Hermann Emil Fi… Male   Germany             
 5       1902 Medicine          294 Ronald Ross      Male   United Kingdom      
 6       1903 Physics             4 Antoine Henri B… Male   France              
 7       1903 Physics             5 Pierre Curie     Male   France              
 8       1904 Physics             8 Lord Rayleigh (… Male   United Kingdom      
 9       1904 Chemistry         163 Sir William Ram… Male   United Kingdom      
10       1905 Physics             9 Philipp Eduard … Male   Germany             
# ℹ 543 more rows
# ℹ 1 more variable: prize_share <chr>
```
]

---
count: false
 
## Many panels: Distribution of Nobel prize winners
.panel1-nobel3-auto[

```r
# filter obs from top 5 countries; create date column
nobel %>%
  filter(organization_country %in% top5_country) %>%
* mutate(prize_date = lubridate::ymd(paste0(prize_year, "-12-10")))
```
]
 
.panel2-nobel3-auto[

```
# A tibble: 553 × 8
   prize_year category  laureate_id full_name        gender organization_country
        <dbl> <chr>           <dbl> <chr>            <chr>  <chr>               
 1       1901 Physics             1 Wilhelm Conrad … Male   Germany             
 2       1901 Chemistry         160 Jacobus Henricu… Male   Germany             
 3       1901 Medicine          293 Emil Adolf von … Male   Germany             
 4       1902 Chemistry         161 Hermann Emil Fi… Male   Germany             
 5       1902 Medicine          294 Ronald Ross      Male   United Kingdom      
 6       1903 Physics             4 Antoine Henri B… Male   France              
 7       1903 Physics             5 Pierre Curie     Male   France              
 8       1904 Physics             8 Lord Rayleigh (… Male   United Kingdom      
 9       1904 Chemistry         163 Sir William Ram… Male   United Kingdom      
10       1905 Physics             9 Philipp Eduard … Male   Germany             
# ℹ 543 more rows
# ℹ 2 more variables: prize_share <chr>, prize_date <date>
```
]

---
count: false
 
## Many panels: Distribution of Nobel prize winners
.panel1-nobel3-auto[

```r
# filter obs from top 5 countries; create date column
nobel %>%
  filter(organization_country %in% top5_country) %>%
  mutate(prize_date = lubridate::ymd(paste0(prize_year, "-12-10"))) %>%
* select(prize_year, prize_date, everything())
```
]
 
.panel2-nobel3-auto[

```
# A tibble: 553 × 8
   prize_year prize_date category  laureate_id full_name                  gender
        <dbl> <date>     <chr>           <dbl> <chr>                      <chr> 
 1       1901 1901-12-10 Physics             1 Wilhelm Conrad Röntgen     Male  
 2       1901 1901-12-10 Chemistry         160 Jacobus Henricus van 't H… Male  
 3       1901 1901-12-10 Medicine          293 Emil Adolf von Behring     Male  
 4       1902 1902-12-10 Chemistry         161 Hermann Emil Fischer       Male  
 5       1902 1902-12-10 Medicine          294 Ronald Ross                Male  
 6       1903 1903-12-10 Physics             4 Antoine Henri Becquerel    Male  
 7       1903 1903-12-10 Physics             5 Pierre Curie               Male  
 8       1904 1904-12-10 Physics             8 Lord Rayleigh (John Willi… Male  
 9       1904 1904-12-10 Chemistry         163 Sir William Ramsay         Male  
10       1905 1905-12-10 Physics             9 Philipp Eduard Anton von … Male  
# ℹ 543 more rows
# ℹ 2 more variables: organization_country <chr>, prize_share <chr>
```
]

---
count: false
 
## Many panels: Distribution of Nobel prize winners
.panel1-nobel3-auto[

```r
# filter obs from top 5 countries; create date column
nobel %>%
  filter(organization_country %in% top5_country) %>%
  mutate(prize_date = lubridate::ymd(paste0(prize_year, "-12-10"))) %>%
  select(prize_year, prize_date, everything()) ->
* nobel_top5c
```
]
 
.panel2-nobel3-auto[

]

---

count: false
 
## Distribution of Nobel prize winners w/ facet_grid()
.panel1-nobel4-auto[

```r
*ggplot(nobel_top5c, aes(x = prize_date))
```
]
 
.panel2-nobel4-auto[
![](lab4_slides_files/figure-html/nobel4_auto_01_output-1.png)
]

---
count: false
 
## Distribution of Nobel prize winners w/ facet_grid()
.panel1-nobel4-auto[

```r
ggplot(nobel_top5c, aes(x = prize_date)) +
* theme_cavis_hgrid
```
]
 
.panel2-nobel4-auto[
![](lab4_slides_files/figure-html/nobel4_auto_02_output-1.png)
]

---
count: false
 
## Distribution of Nobel prize winners w/ facet_grid()
.panel1-nobel4-auto[

```r
ggplot(nobel_top5c, aes(x = prize_date)) +
  theme_cavis_hgrid +
* facet_grid(category ~ organization_country)
```
]
 
.panel2-nobel4-auto[
![](lab4_slides_files/figure-html/nobel4_auto_03_output-1.png)
]

---
count: false
 
## Distribution of Nobel prize winners w/ facet_grid()
.panel1-nobel4-auto[

```r
ggplot(nobel_top5c, aes(x = prize_date)) +
  theme_cavis_hgrid +
  facet_grid(category ~ organization_country) +
* geom_histogram()
```
]
 
.panel2-nobel4-auto[
![](lab4_slides_files/figure-html/nobel4_auto_04_output-1.png)
]

---
count: false
 
## Distribution of Nobel prize winners w/ facet_grid()
.panel1-nobel4-auto[

```r
ggplot(nobel_top5c, aes(x = prize_date)) +
  theme_cavis_hgrid +
  facet_grid(category ~ organization_country) +
  geom_histogram() +
* scale_x_date(
*   date_labels = "%y'",
*   date_breaks = "25 years"
* )
```
]
 
.panel2-nobel4-auto[
![](lab4_slides_files/figure-html/nobel4_auto_05_output-1.png)
]

---
count: false
 
## Distribution of Nobel prize winners w/ facet_grid()
.panel1-nobel4-auto[

```r
ggplot(nobel_top5c, aes(x = prize_date)) +
  theme_cavis_hgrid +
  facet_grid(category ~ organization_country) +
  geom_histogram() +
  scale_x_date(
    date_labels = "%y'",
    date_breaks = "25 years"
  ) +
* scale_y_continuous(
*   breaks = seq(0, 9, by = 3),
*   expand = c(0, 0)
* )
```
]
 
.panel2-nobel4-auto[
![](lab4_slides_files/figure-html/nobel4_auto_06_output-1.png)
]

---
count: false
 
## Distribution of Nobel prize winners w/ facet_grid()
.panel1-nobel4-auto[

```r
ggplot(nobel_top5c, aes(x = prize_date)) +
  theme_cavis_hgrid +
  facet_grid(category ~ organization_country) +
  geom_histogram() +
  scale_x_date(
    date_labels = "%y'",
    date_breaks = "25 years"
  ) +
  scale_y_continuous(
    breaks = seq(0, 9, by = 3),
    expand = c(0, 0)
  ) +
* labs(y = "Count", x = "Year of award")
```
]
 
.panel2-nobel4-auto[
![](lab4_slides_files/figure-html/nobel4_auto_07_output-1.png)
]

---

count: false
 
## Distribution of Nobel prize winners w/ facet_wrap()
.panel1-nobel4-rotate[

```r
ggplot(nobel_top5c, aes(x = prize_date)) +
  theme_cavis_hgrid +
* facet_wrap(category ~ organization_country) +
  geom_histogram() +
  scale_x_date(
    date_labels = "%y'",
    date_breaks = "25 years"
  ) +
  scale_y_continuous(
    breaks = seq(0, 9, by = 3),
    expand = c(0, 0)
  ) +
  labs(y = "Count", x = "Year of award")
```
]
 
.panel2-nobel4-rotate[
![](lab4_slides_files/figure-html/nobel4_rotate_01_output-1.png)
]

---
count: false
 
## Distribution of Nobel prize winners w/ facet_wrap()
.panel1-nobel4-rotate[

```r
ggplot(nobel_top5c, aes(x = prize_date)) +
  theme_cavis_hgrid +
* facet_wrap(category ~ organization_country, nrow = 3) +
  geom_histogram() +
  scale_x_date(
    date_labels = "%y'",
    date_breaks = "25 years"
  ) +
  scale_y_continuous(
    breaks = seq(0, 9, by = 3),
    expand = c(0, 0)
  ) +
  labs(y = "Count", x = "Year of award")
```
]
 
.panel2-nobel4-rotate[
![](lab4_slides_files/figure-html/nobel4_rotate_02_output-1.png)
]

---

## Distribution of Nobel prize winners w/ facet_wrap()

- But do you really need that many panels?

- Problems of data sparsity and not easy comparison

---

count: false
 
## Distribution of Nobel prize winners w/ facet_wrap()
.panel1-nobel5a-auto[

```r
*nobel_top5c
```
]
 
.panel2-nobel5a-auto[

---
count: false
 
## Distribution of Nobel prize winners w/ facet_wrap()
.panel1-nobel5a-auto[

```r
nobel_top5c %>%
* mutate(decade = prize_year %/% 10 * 10)
```
]
 
.panel2-nobel5a-auto[

```
# A tibble: 553 × 9
   prize_year prize_date category  laureate_id full_name                  gender
        <dbl> <date>     <chr>           <dbl> <chr>                      <chr> 
 1       1901 1901-12-10 Physics             1 Wilhelm Conrad Röntgen     Male  
 2       1901 1901-12-10 Chemistry         160 Jacobus Henricus van 't H… Male  
 3       1901 1901-12-10 Medicine          293 Emil Adolf von Behring     Male  
 4       1902 1902-12-10 Chemistry         161 Hermann Emil Fischer       Male  
 5       1902 1902-12-10 Medicine          294 Ronald Ross                Male  
 6       1903 1903-12-10 Physics             4 Antoine Henri Becquerel    Male  
 7       1903 1903-12-10 Physics             5 Pierre Curie               Male  
 8       1904 1904-12-10 Physics             8 Lord Rayleigh (John Willi… Male  
 9       1904 1904-12-10 Chemistry         163 Sir William Ramsay         Male  
10       1905 1905-12-10 Physics             9 Philipp Eduard Anton von … Male  
# ℹ 543 more rows
# ℹ 3 more variables: organization_country <chr>, prize_share <chr>,
#   decade <dbl>
```
]

---
count: false
 
## Distribution of Nobel prize winners w/ facet_wrap()
.panel1-nobel5a-auto[

```r
nobel_top5c %>%
  mutate(decade = prize_year %/% 10 * 10) %>%
* group_by(decade, category, organization_country)
```
]
 
.panel2-nobel5a-auto[

```
# A tibble: 553 × 9
# Groups:   decade, category, organization_country [137]
   prize_year prize_date category  laureate_id full_name                  gender
        <dbl> <date>     <chr>           <dbl> <chr>                      <chr> 
 1       1901 1901-12-10 Physics             1 Wilhelm Conrad Röntgen     Male  
 2       1901 1901-12-10 Chemistry         160 Jacobus Henricus van 't H… Male  
 3       1901 1901-12-10 Medicine          293 Emil Adolf von Behring     Male  
 4       1902 1902-12-10 Chemistry         161 Hermann Emil Fischer       Male  
 5       1902 1902-12-10 Medicine          294 Ronald Ross                Male  
 6       1903 1903-12-10 Physics             4 Antoine Henri Becquerel    Male  
 7       1903 1903-12-10 Physics             5 Pierre Curie               Male  
 8       1904 1904-12-10 Physics             8 Lord Rayleigh (John Willi… Male  
 9       1904 1904-12-10 Chemistry         163 Sir William Ramsay         Male  
10       1905 1905-12-10 Physics             9 Philipp Eduard Anton von … Male  
# ℹ 543 more rows
# ℹ 3 more variables: organization_country <chr>, prize_share <chr>,
#   decade <dbl>
```
]

---
count: false
 
## Distribution of Nobel prize winners w/ facet_wrap()
.panel1-nobel5a-auto[

```r
nobel_top5c %>%
  mutate(decade = prize_year %/% 10 * 10) %>%
  group_by(decade, category, organization_country) %>%
* count()
```
]
 
.panel2-nobel5a-auto[

```
# A tibble: 137 × 4
# Groups:   decade, category, organization_country [137]
   decade category  organization_country     n
    <dbl> <chr>     <chr>                <int>
 1   1900 Chemistry France                   1
 2   1900 Chemistry Germany                  5
 3   1900 Chemistry United Kingdom           2
 4   1900 Medicine  France                   2
 5   1900 Medicine  Germany                  3
 6   1900 Medicine  Switzerland              1
 7   1900 Medicine  United Kingdom           1
 8   1900 Peace     France                   1
 9   1900 Physics   France                   3
10   1900 Physics   Germany                  2
# ℹ 127 more rows
```
]

---
count: false
 
## Distribution of Nobel prize winners w/ facet_wrap()
.panel1-nobel5a-auto[

```r
nobel_top5c %>%
  mutate(decade = prize_year %/% 10 * 10) %>%
  group_by(decade, category, organization_country) %>%
  count() %>%
* filter(category != "Peace")
```
]
 
.panel2-nobel5a-auto[

```
# A tibble: 133 × 4
# Groups:   decade, category, organization_country [133]
   decade category  organization_country     n
    <dbl> <chr>     <chr>                <int>
 1   1900 Chemistry France                   1
 2   1900 Chemistry Germany                  5
 3   1900 Chemistry United Kingdom           2
 4   1900 Medicine  France                   2
 5   1900 Medicine  Germany                  3
 6   1900 Medicine  Switzerland              1
 7   1900 Medicine  United Kingdom           1
 8   1900 Physics   France                   3
 9   1900 Physics   Germany                  2
10   1900 Physics   United Kingdom           3
# ℹ 123 more rows
```
]

---
count: false
 
## Distribution of Nobel prize winners w/ facet_wrap()
.panel1-nobel5a-auto[

```r
nobel_top5c %>%
  mutate(decade = prize_year %/% 10 * 10) %>%
  group_by(decade, category, organization_country) %>%
  count() %>%
  filter(category != "Peace") ->
* nobel_top5c_count
```
]
 
.panel2-nobel5a-auto[

]

---

count: false
 
## Distribution of Nobel prize winners w/ facet_wrap()
.panel1-nobel5b-non_seq[

```r
ggplot(nobel_top5c_count,
       aes(x = decade, y = n, color = organization_country)) +
  theme_cavis_hgrid +
  facet_wrap(~ category)
```
]
 
.panel2-nobel5b-non_seq[
![](lab4_slides_files/figure-html/nobel5b_non_seq_01_output-1.png)
]

---
count: false
 
## Distribution of Nobel prize winners w/ facet_wrap()
.panel1-nobel5b-non_seq[

```r
ggplot(nobel_top5c_count,
       aes(x = decade, y = n, color = organization_country)) +
  theme_cavis_hgrid +
  facet_wrap(~ category) +
* geom_line()
```
]
 
.panel2-nobel5b-non_seq[
![](lab4_slides_files/figure-html/nobel5b_non_seq_02_output-1.png)
]

---
count: false
 
## Distribution of Nobel prize winners w/ facet_wrap()
.panel1-nobel5b-non_seq[

```r
ggplot(nobel_top5c_count,
       aes(x = decade, y = n, color = organization_country)) +
  theme_cavis_hgrid +
  facet_wrap(~ category) +
  geom_line() +
* scale_color_brewer(type = "qual", palette = 3)
```
]
 
.panel2-nobel5b-non_seq[
![](lab4_slides_files/figure-html/nobel5b_non_seq_03_output-1.png)
]

---
count: false
 
## Distribution of Nobel prize winners w/ facet_wrap()
.panel1-nobel5b-non_seq[

```r
ggplot(nobel_top5c_count,
       aes(x = decade, y = n, color = organization_country)) +
  theme_cavis_hgrid +
  facet_wrap(~ category) +
  geom_line() +
  scale_color_brewer(type = "qual", palette = 3) +
* theme(legend.position = "top")
```
]
 
.panel2-nobel5b-non_seq[
![](lab4_slides_files/figure-html/nobel5b_non_seq_04_output-1.png)
]

---
count: false
 
## Distribution of Nobel prize winners w/ facet_wrap()
.panel1-nobel5b-non_seq[

```r
ggplot(nobel_top5c_count,
       aes(x = decade, y = n, color = organization_country)) +
  theme_cavis_hgrid +
  facet_wrap(~ category) +
  geom_line() +
  scale_color_brewer(type = "qual", palette = 3) +
  theme(legend.position = "top") +
* geom_point(size = 2)
```
]
 
.panel2-nobel5b-non_seq[
![](lab4_slides_files/figure-html/nobel5b_non_seq_05_output-1.png)
]

---
count: false
 
## Distribution of Nobel prize winners w/ facet_wrap()
.panel1-nobel5b-non_seq[

```r
ggplot(nobel_top5c_count,
       aes(x = decade, y = n, color = organization_country)) +
  theme_cavis_hgrid +
  facet_wrap(~ category) +
  geom_line() +
  scale_color_brewer(type = "qual", palette = 3) +
  theme(legend.position = "top") +
* geom_point(color = "white", size = 4) +
  geom_point(size = 2)
```
]
 
.panel2-nobel5b-non_seq[
![](lab4_slides_files/figure-html/nobel5b_non_seq_06_output-1.png)
]

---
count: false
 
## Distribution of Nobel prize winners w/ facet_wrap()
.panel1-nobel5b-non_seq[

```r
ggplot(nobel_top5c_count,
       aes(x = decade, y = n, color = organization_country)) +
  theme_cavis_hgrid +
  facet_wrap(~ category) +
  geom_line() +
  scale_color_brewer(type = "qual", palette = 3) +
  theme(legend.position = "top") +
  geom_point(color = "white", size = 4) +
  geom_point(size = 2) +
* guides(colour = guide_legend(reverse = TRUE))
```
]
 
.panel2-nobel5b-non_seq[
![](lab4_slides_files/figure-html/nobel5b_non_seq_07_output-1.png)
]

---
count: false
 
## Distribution of Nobel prize winners w/ facet_wrap()
.panel1-nobel5b-non_seq[

```r
ggplot(nobel_top5c_count,
       aes(x = decade, y = n, color = organization_country)) +
  theme_cavis_hgrid +
  facet_wrap(~ category) +
* geom_vline(xintercept = 1950, linetype = 2, color = "grey45") +
  geom_line() +
  scale_color_brewer(type = "qual", palette = 3) +
  theme(legend.position = "top") +
  geom_point(color = "white", size = 4) +
  geom_point(size = 2) +
  guides(colour = guide_legend(reverse = TRUE))
```
]
 
.panel2-nobel5b-non_seq[
![](lab4_slides_files/figure-html/nobel5b_non_seq_08_output-1.png)
]

---
count: false
 
## Distribution of Nobel prize winners w/ facet_wrap()
.panel1-nobel5b-non_seq[

```r
ggplot(nobel_top5c_count,
       aes(x = decade, y = n, color = organization_country)) +
  theme_cavis_hgrid +
  facet_wrap(~ category) +
  geom_vline(xintercept = 1950, linetype = 2, color = "grey45") +
  geom_line() +
  scale_color_brewer(type = "qual", palette = 3) +
  theme(legend.position = "top") +
  geom_point(color = "white", size = 4) +
  geom_point(size = 2) +
  guides(colour = guide_legend(reverse = TRUE)) +
* labs(x = "Decade", y = "Total number of awards (per decade)")
```
]
 
.panel2-nobel5b-non_seq[
![](lab4_slides_files/figure-html/nobel5b_non_seq_09_output-1.png)
]

---

count: false
 
## Many panels: Time trend of shares of Nobel prize
.panel1-nobel6-auto[

```r
# some wrangling
*nobel
```
]
 
.panel2-nobel6-auto[

---
count: false
 
## Many panels: Time trend of shares of Nobel prize
.panel1-nobel6-auto[

```r
# some wrangling
nobel %>%
* mutate(prize_share2 = case_when(prize_share == "1/1" ~ 1,
*                                 prize_share == "1/2" ~ 1/2,
*                                 prize_share == "1/3" ~ 1/3,
*                                 prize_share == "1/4" ~ 1/4))
```
]
 
.panel2-nobel6-auto[

```
# A tibble: 881 × 8
   prize_year category   laureate_id full_name       gender organization_country
        <dbl> <chr>            <dbl> <chr>           <chr>  <chr>               
 1       1901 Physics              1 Wilhelm Conrad… Male   Germany             
 2       1901 Chemistry          160 Jacobus Henric… Male   Germany             
 3       1901 Medicine           293 Emil Adolf von… Male   Germany             
 4       1901 Peace              462 Jean Henry Dun… Male   <NA>                
 5       1901 Peace              463 Frédéric Passy  Male   <NA>                
 6       1901 Literature         569 Sully Prudhomme Male   <NA>                
 7       1902 Physics              2 Hendrik Antoon… Male   Netherlands         
 8       1902 Physics              3 Pieter Zeeman   Male   Netherlands         
 9       1902 Chemistry          161 Hermann Emil F… Male   Germany             
10       1902 Medicine           294 Ronald Ross     Male   United Kingdom      
# ℹ 871 more rows
# ℹ 2 more variables: prize_share <chr>, prize_share2 <dbl>
```
]

---
count: false
 
## Many panels: Time trend of shares of Nobel prize
.panel1-nobel6-auto[

```r
# some wrangling
nobel %>%
  mutate(prize_share2 = case_when(prize_share == "1/1" ~ 1,
                                  prize_share == "1/2" ~ 1/2,
                                  prize_share == "1/3" ~ 1/3,
                                  prize_share == "1/4" ~ 1/4)) %>%
* mutate(last_name = str_extract(full_name, "(?<=[ -])\\w+$"))
```
]
 
.panel2-nobel6-auto[

```
# A tibble: 881 × 9
   prize_year category   laureate_id full_name       gender organization_country
        <dbl> <chr>            <dbl> <chr>           <chr>  <chr>               
 1       1901 Physics              1 Wilhelm Conrad… Male   Germany             
 2       1901 Chemistry          160 Jacobus Henric… Male   Germany             
 3       1901 Medicine           293 Emil Adolf von… Male   Germany             
 4       1901 Peace              462 Jean Henry Dun… Male   <NA>                
 5       1901 Peace              463 Frédéric Passy  Male   <NA>                
 6       1901 Literature         569 Sully Prudhomme Male   <NA>                
 7       1902 Physics              2 Hendrik Antoon… Male   Netherlands         
 8       1902 Physics              3 Pieter Zeeman   Male   Netherlands         
 9       1902 Chemistry          161 Hermann Emil F… Male   Germany             
10       1902 Medicine           294 Ronald Ross     Male   United Kingdom      
# ℹ 871 more rows
# ℹ 3 more variables: prize_share <chr>, prize_share2 <dbl>, last_name <chr>
```
]

---
count: false
 
## Many panels: Time trend of shares of Nobel prize
.panel1-nobel6-auto[

```r
# some wrangling
nobel %>%
  mutate(prize_share2 = case_when(prize_share == "1/1" ~ 1,
                                  prize_share == "1/2" ~ 1/2,
                                  prize_share == "1/3" ~ 1/3,
                                  prize_share == "1/4" ~ 1/4)) %>%
  mutate(last_name = str_extract(full_name, "(?<=[ -])\\w+$")) ->
* nobel2
```
]
 
.panel2-nobel6-auto[

]

---
count: false
 
## Many panels: Time trend of shares of Nobel prize
.panel1-nobel6-auto[

```r
# some wrangling
nobel %>%
  mutate(prize_share2 = case_when(prize_share == "1/1" ~ 1,
                                  prize_share == "1/2" ~ 1/2,
                                  prize_share == "1/3" ~ 1/3,
                                  prize_share == "1/4" ~ 1/4)) %>%
  mutate(last_name = str_extract(full_name, "(?<=[ -])\\w+$")) ->
  nobel2

# get colors
*colors <- brewer.pal(n = 5, name = "Set1")
```
]
 
.panel2-nobel6-auto[

]

---
count: false
 
## Many panels: Time trend of shares of Nobel prize
.panel1-nobel6-auto[

```r
# some wrangling
nobel %>%
  mutate(prize_share2 = case_when(prize_share == "1/1" ~ 1,
                                  prize_share == "1/2" ~ 1/2,
                                  prize_share == "1/3" ~ 1/3,
                                  prize_share == "1/4" ~ 1/4)) %>%
  mutate(last_name = str_extract(full_name, "(?<=[ -])\\w+$")) ->
  nobel2

# get colors
colors <- brewer.pal(n = 5, name = "Set1")
*blue <- colors[2]
```
]
 
.panel2-nobel6-auto[

]

---
count: false
 
## Many panels: Time trend of shares of Nobel prize
.panel1-nobel6-auto[

```r
# some wrangling
nobel %>%
  mutate(prize_share2 = case_when(prize_share == "1/1" ~ 1,
                                  prize_share == "1/2" ~ 1/2,
                                  prize_share == "1/3" ~ 1/3,
                                  prize_share == "1/4" ~ 1/4)) %>%
  mutate(last_name = str_extract(full_name, "(?<=[ -])\\w+$")) ->
  nobel2

# get colors
colors <- brewer.pal(n = 5, name = "Set1")
blue <- colors[2]
*orange <- colors[5]
```
]
 
.panel2-nobel6-auto[

]

---

count: false
 
## Many panels: Time trend of shares of Nobel prize
.panel1-nobel7-auto[

```r
*nobel2
```
]
 
.panel2-nobel7-auto[