ggplot: Breaking news

class: middle, center, inverse

.shift-up[
## .smaller[PLOTS]
# .bigger[.bigger[.teal[FOR REAL]]]
]

.pull-right img {width: 139%;
    max-width: 139%;
    margin-left: -38px;
    margin-top: -20px;}
    
.pull-left .remark-code-line {font-size: 1.49rem;}
.pull-up {margin-top: -28px;}

.small-font {font-size: 1.5rem;}
.small-font .remark-code-line {font-size: 1.5rem;}
.med-font .remark-code-line {font-size: 1.7rem;}

.shift-up {margin-top: -20px;}
.shift-left {margin-left: -100px;}
.small-shift-left {margin-left: -60px;}
.shift-right {margin-left: 180px;}
.shift-down {padding-top: 12px;}

.remark-slide table {width: 108%; font-size: 1.4rem;}
.small-table table {width: 39%;}

.remark-code {width: 104%;}
.remark-code-line {font-size: 1.75rem; line-height: 1.37;}

</style>

<div class="ticker-container">
<div class="ticker-wrapper">
<div class="ticker-transition">
<div class="ticker-item">...BREAKING NEWS...</div>
<div class="ticker-item">..Penguins at it again...</div>
<div class="ticker-item">..BREAKING NEWS...</div>
<div class="ticker-item">..So BIG growth rate expected to exceed...</div>
<div class="ticker-item">...BREAKING NEWS...</div>
<div class="ticker-item">..Penguins growing and growing...</div>
<div class="ticker-item">...BREAKING NEWS....</div>
</div>
</div>
</div>
  
---
class: middle, center, inverse
exclude: true

## .smaller[GGPLOTS]
# .bigger[.bigger[.teal[FOR REAL]]]

<h1 style="text-wrap: nowrap; margin-left: -153px; position: absolute;"> S....BREAKING NEWS....BREAKING NEWS....BREAKI...</h1>

---
class: animated infinite pulse

---

---
class: middle, center

> .shift-left[# .bigger[“]The penguins are growing....bigger[”]]
> .small-shift-left[### .darkgray[.small[*- The R/V Topsy-Scurvy*]]]

---
class: middle, center, gray-bg

.shift-up[
![](03-2-Facets-labels-colors_files/figure-html/news-plot-1.png)
]

---

.shift-up[
###  > .bluecode[`growth_plot.R`]
]

```r
library(tidyverse)
library(ggthemes)

# News plot
ggplot(mean_bill_lengths, 
       aes(x = year, y = avg_bill_length)) +
  geom_col(aes(fill = year), show.legend = FALSE) +
  geom_line(linewidth = 2, color = "tomato", arrow = arrow()) +
  coord_cartesian(ylim = c(43.7, 47.2)) +
  labs(title = "Penguin growth nears speed of light",
       subtitle = "Mean bill length in mm\n",
       caption = "©2023 The R/V Topsy-Scurvy") +
  theme_wsj(color = "gray")
```

---

.shift-up[
###  Y-axis limits
]

```r
library(tidyverse)
library(ggthemes)

# News plot
ggplot(mean_bill_lengths, 
       aes(x = year, y = avg_bill_length)) +
  geom_col(aes(fill = year), show.legend = FALSE) +
  geom_line(linewidth = 2, color = "tomato", arrow = arrow()) +
* coord_cartesian(ylim = c(43.7, 47.2)) +
  labs(title = "Penguin growth nears speed of light",
       subtitle = "Mean bill length in mm\n",
       caption = "©2023 The R/V Topsy-Scurvy") +
  theme_wsj(color = "gray")
```

---

.shift-up[
###  Y-axis limits
]

```r
library(tidyverse)
library(ggthemes)

# News plot
ggplot(mean_bill_lengths, 
       aes(x = year, y = avg_bill_length)) +
  geom_col(aes(fill = year), show.legend = FALSE) +
  geom_line(linewidth = 2, color = "tomato", arrow = arrow()) +
  coord_cartesian(ylim = c(`0`, 47.2)) +
  labs(title = "Penguin growth nears speed of light",
       subtitle = "Mean bill length in mm\n",
       caption = "©2023 The R/V Topsy-Scurvy") +
  theme_wsj(color = "gray")
```

---

.shift-up[
### With set Y-axis limit
]

![](03-2-Facets-labels-colors_files/figure-html/chunk-a-1.png)

---

.shift-up[
### .teal[Start Y-axis at ZERO]
]

![](03-2-Facets-labels-colors_files/figure-html/unnamed-chunk-5-1.png)

---

.shift-up[
###  geom_line **->**
]

```r
library(tidyverse)
library(ggthemes)

# News plot
ggplot(mean_bill_lengths, 
       aes(x = year, y = avg_bill_length)) +
  geom_col(aes(fill = year), show.legend = FALSE) +
* geom_line(linewidth = 2, color = "tomato", arrow = arrow()) +
  coord_cartesian(ylim = c(0, 47.2)) +
  labs(title = "Penguin growth nears speed of light",
       subtitle = "Mean bill length in mm\n",
       caption = "©2023 The R/V Topsy-Scurvy") +
  theme_wsj(color = "gray")
```

---

.shift-up[
###  geom_line **->**
]

```r
library(tidyverse)
library(ggthemes)

# News plot
ggplot(mean_bill_lengths, 
       aes(x = year, y = avg_bill_length)) +
  geom_col(aes(fill = year), show.legend = FALSE) +
*  
  coord_cartesian(ylim = c(0, 47.2)) +
  labs(title = "Penguin growth nears speed of light",
       subtitle = "Mean bill length in mm\n",
       caption = "©2023 The R/V Topsy-Scurvy") +
  theme_wsj(color = "gray")
```

---

.shift-up[
### .teal[Hold the line]
]

![](03-2-Facets-labels-colors_files/figure-html/unnamed-chunk-8-1.png)

---
class: inverse, middle, center

# .bigger[.blue[labs( )]]

---

.shift-up[
###  Title and labels
]

```r
library(tidyverse)
library(ggthemes)

# News plot
ggplot(mean_bill_lengths, 
       aes(x = year, y = avg_bill_length)) +
  geom_col(aes(fill = year), show.legend = FALSE) +
  coord_cartesian(ylim = c(0, 47.2)) +
* labs(title = "Penguin growth nears speed of light",
*      subtitle = "Mean bill length in mm\n",
*      caption = "©2023 The R/V Topsy-Scurvy") +
  theme_wsj(color = "gray")
```

---

.shift-up[
###  Title and labels
]

```r
library(tidyverse)
library(ggthemes)

# News plot
ggplot(mean_bill_lengths, 
       aes(x = year, y = avg_bill_length)) +
  geom_col(aes(fill = year), show.legend = FALSE) +
  coord_cartesian(ylim = c(0, 47.2)) +
* labs(title = "Penguin bill lengths by year",
       subtitle = "Mean bill length in mm\n",
       caption = "©2023 The R/V Topsy-Scurvy") +
  theme_wsj(color = "gray")
```

---

.shift-up[
###  Title and labels
]

```r
library(tidyverse)
library(ggthemes)

# News plot
ggplot(mean_bill_lengths, 
       aes(x = year, y = avg_bill_length)) +
  geom_col(aes(fill = year), show.legend = FALSE) +
  coord_cartesian(ylim = c(0, 47.2)) +
  labs(title = "Penguin bill lengths by year",  
*      subtitle = "Mean bill length in millimeters (mm)\n",
       caption = "©2023 The R/V Topsy-Scurvy") +
  theme_wsj(color = "gray")
```

---

.shift-up[
###  Title and labels
]

```r
library(tidyverse)
library(ggthemes)

# News plot
ggplot(mean_bill_lengths, 
       aes(x = year, y = avg_bill_length)) +
  geom_col(aes(fill = year), show.legend = FALSE) +
  coord_cartesian(ylim = c(0, 47.2)) +
  labs(title = "Penguin bill lengths by year",  
       subtitle = "Mean bill length in millimeters (mm)\n", 
*      caption = "©2023 The R/V Topsy-Scurvy") +
  theme_wsj(color = "gray")
```

---

.shift-up[
###  Title and labels
]

```r
library(tidyverse)
library(ggthemes)

# News plot
ggplot(mean_bill_lengths, 
       aes(x = year, y = avg_bill_length)) +
  geom_col(aes(fill = year), show.legend = FALSE) +
  coord_cartesian(ylim = c(0, 47.2)) +
  labs(title = "Penguin bill lengths by year",  
       subtitle = "Mean bill length in millimeters (mm)\n", 
       caption = "©2023 The R/V Topsy-Scurvy",
*      x = "Year") +
  theme_wsj(color = "gray")
```

---

.shift-up[
###  Title and labels
]

```r
library(tidyverse)
library(ggthemes)

# News plot
ggplot(mean_bill_lengths, 
       aes(x = year, y = avg_bill_length)) +
  geom_col(aes(fill = year), show.legend = FALSE) +
  coord_cartesian(ylim = c(0, 47.2)) +
  labs(title = "Penguin bill lengths by year",  
       subtitle = "Mean bill length in millimeters (mm)\n", 
       caption = "©2023 The R/V Topsy-Scurvy",
       x = "Year",
*      y = "(mm)") +
  theme_wsj(color = "gray")
```

---

.shift-up[
### .teal[With less ~~EXAGGERATION~~]
]

![](03-2-Facets-labels-colors_files/figure-html/unnamed-chunk-15-1.png)

---

.shift-up[
### Color changes
]

```r
library(tidyverse)
library(ggthemes)

# News plot
ggplot(mean_bill_lengths, 
       aes(x = year, y = avg_bill_length)) +
* geom_col(aes(fill = year), show.legend = FALSE) +
  coord_cartesian(ylim = c(0, 47.2)) +
  labs(title = "\nPenguin bill lengths by year",  
       subtitle = "Mean bill length in millimeters (mm)\n", 
       caption = "©2023 The R/V Topsy-Scurvy",
       x = "Year",
       y = "(mm)") + 
  theme_wsj(base_size = 16, color = "gray")
```

---

.shift-up[
### Color changes
]

```r
library(tidyverse)
library(ggthemes)

# News plot
ggplot(mean_bill_lengths, 
       aes(x = year, y = avg_bill_length)) +
* geom_col(fill = "#003865") +
  coord_cartesian(ylim = c(0, 47.2)) +
  labs(title = "\nPenguin bill lengths by year",  
       subtitle = "Mean bill length in millimeters (mm)\n", 
       caption = "©2023 The R/V Topsy-Scurvy",
       x = "Year",
       y = "(mm)") + 
  theme_wsj(base_size = 16, color = "gray")
```

---

.shift-up[
### .teal[Drop distracting color-coding]
]

![](03-2-Facets-labels-colors_files/figure-html/unnamed-chunk-18-1.png)

---
class: inverse, middle, center

# .bigger[.blue[theme_*( )]]

---
class: center

.shift-up[
# Built-in .blue[ggplot] themes
]

---

.shift-up[
### ggthemes
]

```r
library(tidyverse)
*library(ggthemes)

# News plot
ggplot(mean_bill_lengths, 
       aes(x = year, y = avg_bill_length)) +
  geom_col(fill = "#003865") +
  coord_cartesian(ylim = c(0, 47.2)) +
  labs(title = "Penguin bill lengths by year",  
       subtitle = "Mean bill length in millimeters (mm)\n", 
       caption = "©2023 The R/V Topsy-Scurvy",
       x = "Year",
       y = "(mm)") + 
* theme_wsj(color = "gray")
```

![](03-2-Facets-labels-colors_files/figure-html/unnamed-chunk-19-1.png)

---

.shift-up[
### ggthemes
]

```r
library(tidyverse)
library(ggthemes)

![](03-2-Facets-labels-colors_files/figure-html/unnamed-chunk-20-1.png)

---

.shift-up[
### .teal[Use a theme with axes labels]
]

![](03-2-Facets-labels-colors_files/figure-html/unnamed-chunk-21-1.png)

---
class: inverse, middle, center

# .big[<i class="fa-solid fa-user-secret"></i>]
# .bigger[.blue[Sleuthing time]]

---
class: inverse
exclude: true

###  > .bluecode[`load_RV_penguins.R`]

<br>

.small-font[

```r
library(tidyverse)

# Raw R/V Topsy-Scurvy data
url <- "https://tidy-mn.github.io/R-camp-penguins/data/rv_scurvy_penguins.csv"

rv_penguins <- read_csv(url)
```
]

---
class: inverse, middle, center
exclude: true

# .bigger[.blue[facet_wrap( )]]

---
class: inverse, middle, center
exclude: true

# .bigger[.blue[colors and legends]]

---
class: inverse, center, middle

# <i class="fas fa-carrot" aria-hidden="true"></i> [Back to Videos](https://tidy-mn.github.io/R-camp-penguins/index.html)