plot flipbook

count: false

.panel1-the_chunk-auto[

```r
*dat
```
]
 
.panel2-the_chunk-auto[

```
# A tibble: 230 x 13
   manufacturer model displ  year   cyl trans drv     cty   hwy fl   
   <chr>        <chr> <dbl> <int> <int> <chr> <chr> <int> <int> <chr>
 1 audi         a4      1.8  1999     4 auto~ f        18    29 p    
 2 audi         a4      1.8  1999     4 manu~ f        21    29 p    
 3 audi         a4      2    2008     4 manu~ f        20    31 p    
 4 audi         a4      2    2008     4 auto~ f        21    30 p    
 5 audi         a4      2.8  1999     6 auto~ f        16    26 p    
 6 audi         a4      2.8  1999     6 manu~ f        18    26 p    
 7 audi         a4      3.1  2008     6 auto~ f        18    27 p    
 8 audi         a4 q~   1.8  1999     4 manu~ 4        18    26 p    
 9 audi         a4 q~   1.8  1999     4 auto~ 4        16    25 p    
10 audi         a4 q~   2    2008     4 manu~ 4        20    28 p    
# ... with 220 more rows, and 3 more variables: class <chr>,
#   cyl_text <glue>, cyl_color <chr>
```
]

---
count: false

.panel1-the_chunk-auto[

```r
dat %>%
* ggplot()
```
]
 
.panel2-the_chunk-auto[
<img src="plot_flipbook_embed_files/figure-html/the_chunk_auto_02_output-1.png" width="576" />
]

---
count: false

.panel1-the_chunk-auto[

```r
dat %>%
  ggplot() +
* geom_point(aes(x = cty, y = hwy, color = cyl_color),
*            alpha = 0.7, size = 2)
```
]
 
.panel2-the_chunk-auto[
<img src="plot_flipbook_embed_files/figure-html/the_chunk_auto_03_output-1.png" width="576" />
]

---
count: false

.panel1-the_chunk-auto[

```r
dat %>%
  ggplot() +
  geom_point(aes(x = cty, y = hwy, color = cyl_color),
             alpha = 0.7, size = 2) +
* scale_color_identity()
```
]
 
.panel2-the_chunk-auto[
<img src="plot_flipbook_embed_files/figure-html/the_chunk_auto_04_output-1.png" width="576" />
]

---
count: false

.panel1-the_chunk-auto[

```r
dat %>%
  ggplot() +
  geom_point(aes(x = cty, y = hwy, color = cyl_color),
             alpha = 0.7, size = 2) +
  scale_color_identity() +
* facet_wrap(~ cyl_text)
```
]
 
.panel2-the_chunk-auto[
<img src="plot_flipbook_embed_files/figure-html/the_chunk_auto_05_output-1.png" width="576" />
]

---
count: false

.panel1-the_chunk-auto[

```r
dat %>%
  ggplot() +
  geom_point(aes(x = cty, y = hwy, color = cyl_color),
             alpha = 0.7, size = 2) +
  scale_color_identity() +
  facet_wrap(~ cyl_text) +
* labs(
*   title = title,
*   subtitle = subtitle,
*   x = 'City MPG',
*   y = 'Highway\nMPG',
*   caption = caption
* )
```
]
 
.panel2-the_chunk-auto[
<img src="plot_flipbook_embed_files/figure-html/the_chunk_auto_06_output-1.png" width="576" />
]

---
count: false

.panel1-the_chunk-auto[

---
count: false

.panel1-the_chunk-auto[

---
count: false

.panel1-the_chunk-auto[

---
count: false

.panel1-the_chunk-auto[

---
count: false

.panel1-the_chunk-auto[

---
count: false

.panel1-the_chunk-auto[

---
count: false

.panel1-the_chunk-auto[

---
count: false

.panel1-the_chunk-auto[

---
count: false

.panel1-the_chunk-auto[

---
count: false

.panel1-the_chunk-auto[

```r
dat %>%
  ggplot() +
  geom_point(aes(x = cty, y = hwy, color = cyl_color),
             alpha = 0.7, size = 2) +
  scale_color_identity() +
  facet_wrap(~ cyl_text) +
  labs(
    title = title,
    subtitle = subtitle,
    x = 'City MPG',
    y = 'Highway\nMPG',
    caption = caption
  ) +
  theme_minimal() +
    theme(legend.position = 'none') +
    theme(text = element_text(family = 'Fira Code')) +
    theme(panel.grid = element_blank()) +
    theme(panel.spacing = unit(1, "lines")) +
    theme(plot.background = element_rect(fill = '#D3D3D3')) +
    theme(plot.margin = unit(c(.5,.75,.5,.75), 'cm')) +
    theme(plot.title.position = 'plot') +
    theme(plot.title = element_markdown(size = 16,
                                  face = 'bold',
                                  color = '#525252',
                                  lineheight = 1.2)) +
*   theme(plot.subtitle = element_textbox_simple(
*       size = 10,
*       lineheight = 1.2,
*       padding = margin(5.5, 5.5, 5.5, 5.5),
*       margin = margin(0, 0, 5.5, 0),
*       fill = '#CCCCCC'))
```
]
 
.panel2-the_chunk-auto[
<img src="plot_flipbook_embed_files/figure-html/the_chunk_auto_16_output-1.png" width="576" />
]

---
count: false

.panel1-the_chunk-auto[

```r
dat %>%
  ggplot() +
  geom_point(aes(x = cty, y = hwy, color = cyl_color),
             alpha = 0.7, size = 2) +
  scale_color_identity() +
  facet_wrap(~ cyl_text) +
  labs(
    title = title,
    subtitle = subtitle,
    x = 'City MPG',
    y = 'Highway\nMPG',
    caption = caption
  ) +
  theme_minimal() +
    theme(legend.position = 'none') +
    theme(text = element_text(family = 'Fira Code')) +
    theme(panel.grid = element_blank()) +
    theme(panel.spacing = unit(1, "lines")) +
    theme(plot.background = element_rect(fill = '#D3D3D3')) +
    theme(plot.margin = unit(c(.5,.75,.5,.75), 'cm')) +
    theme(plot.title.position = 'plot') +
    theme(plot.title = element_markdown(size = 16,
                                  face = 'bold',
                                  color = '#525252',
                                  lineheight = 1.2)) +
    theme(plot.subtitle = element_textbox_simple(
        size = 10,
        lineheight = 1.2,
        padding = margin(5.5, 5.5, 5.5, 5.5),
        margin = margin(0, 0, 5.5, 0),
        fill = '#CCCCCC')) +
*   theme(plot.caption = element_textbox_simple(
*           size = 9,
*           lineheight = 1.2,
*           margin = margin(20, 50, 0, 0),
*           fill = '#D3D3D3'))
```
]
 
.panel2-the_chunk-auto[
<img src="plot_flipbook_embed_files/figure-html/the_chunk_auto_17_output-1.png" width="576" />
]

---
count: false

.panel1-the_chunk-auto[

```r
dat %>%
  ggplot() +
  geom_point(aes(x = cty, y = hwy, color = cyl_color),
             alpha = 0.7, size = 2) +
  scale_color_identity() +
  facet_wrap(~ cyl_text) +
  labs(
    title = title,
    subtitle = subtitle,
    x = 'City MPG',
    y = 'Highway\nMPG',
    caption = caption
  ) +
  theme_minimal() +
    theme(legend.position = 'none') +
    theme(text = element_text(family = 'Fira Code')) +
    theme(panel.grid = element_blank()) +
    theme(panel.spacing = unit(1, "lines")) +
    theme(plot.background = element_rect(fill = '#D3D3D3')) +
    theme(plot.margin = unit(c(.5,.75,.5,.75), 'cm')) +
    theme(plot.title.position = 'plot') +
    theme(plot.title = element_markdown(size = 16,
                                  face = 'bold',
                                  color = '#525252',
                                  lineheight = 1.2)) +
    theme(plot.subtitle = element_textbox_simple(
        size = 10,
        lineheight = 1.2,
        padding = margin(5.5, 5.5, 5.5, 5.5),
        margin = margin(0, 0, 5.5, 0),
        fill = '#CCCCCC')) +
    theme(plot.caption = element_textbox_simple(
            size = 9,
            lineheight = 1.2,
            margin = margin(20, 50, 0, 0),
            fill = '#D3D3D3')) +
*   theme(axis.text = element_text(size = 12))
```
]
 
.panel2-the_chunk-auto[
<img src="plot_flipbook_embed_files/figure-html/the_chunk_auto_18_output-1.png" width="576" />
]

---
count: false

.panel1-the_chunk-auto[

```r
dat %>%
  ggplot() +
  geom_point(aes(x = cty, y = hwy, color = cyl_color),
             alpha = 0.7, size = 2) +
  scale_color_identity() +
  facet_wrap(~ cyl_text) +
  labs(
    title = title,
    subtitle = subtitle,
    x = 'City MPG',
    y = 'Highway\nMPG',
    caption = caption
  ) +
  theme_minimal() +
    theme(legend.position = 'none') +
    theme(text = element_text(family = 'Fira Code')) +
    theme(panel.grid = element_blank()) +
    theme(panel.spacing = unit(1, "lines")) +
    theme(plot.background = element_rect(fill = '#D3D3D3')) +
    theme(plot.margin = unit(c(.5,.75,.5,.75), 'cm')) +
    theme(plot.title.position = 'plot') +
    theme(plot.title = element_markdown(size = 16,
                                  face = 'bold',
                                  color = '#525252',
                                  lineheight = 1.2)) +
    theme(plot.subtitle = element_textbox_simple(
        size = 10,
        lineheight = 1.2,
        padding = margin(5.5, 5.5, 5.5, 5.5),
        margin = margin(0, 0, 5.5, 0),
        fill = '#CCCCCC')) +
    theme(plot.caption = element_textbox_simple(
            size = 9,
            lineheight = 1.2,
            margin = margin(20, 50, 0, 0),
            fill = '#D3D3D3')) +
    theme(axis.text = element_text(size = 12)) +
*   theme(axis.title = element_text(size = 12, face = 'bold', color = '#525252'))
```
]
 
.panel2-the_chunk-auto[
<img src="plot_flipbook_embed_files/figure-html/the_chunk_auto_19_output-1.png" width="576" />
]

---
count: false

.panel1-the_chunk-auto[

```r
dat %>%
  ggplot() +
  geom_point(aes(x = cty, y = hwy, color = cyl_color),
             alpha = 0.7, size = 2) +
  scale_color_identity() +
  facet_wrap(~ cyl_text) +
  labs(
    title = title,
    subtitle = subtitle,
    x = 'City MPG',
    y = 'Highway\nMPG',
    caption = caption
  ) +
  theme_minimal() +
    theme(legend.position = 'none') +
    theme(text = element_text(family = 'Fira Code')) +
    theme(panel.grid = element_blank()) +
    theme(panel.spacing = unit(1, "lines")) +
    theme(plot.background = element_rect(fill = '#D3D3D3')) +
    theme(plot.margin = unit(c(.5,.75,.5,.75), 'cm')) +
    theme(plot.title.position = 'plot') +
    theme(plot.title = element_markdown(size = 16,
                                  face = 'bold',
                                  color = '#525252',
                                  lineheight = 1.2)) +
    theme(plot.subtitle = element_textbox_simple(
        size = 10,
        lineheight = 1.2,
        padding = margin(5.5, 5.5, 5.5, 5.5),
        margin = margin(0, 0, 5.5, 0),
        fill = '#CCCCCC')) +
    theme(plot.caption = element_textbox_simple(
            size = 9,
            lineheight = 1.2,
            margin = margin(20, 50, 0, 0),
            fill = '#D3D3D3')) +
    theme(axis.text = element_text(size = 12)) +
    theme(axis.title = element_text(size = 12, face = 'bold', color = '#525252')) +
*   theme(axis.title.x = element_text(margin = unit(c(.5, 0, 0, 0), "cm")))
```
]
 
.panel2-the_chunk-auto[
<img src="plot_flipbook_embed_files/figure-html/the_chunk_auto_20_output-1.png" width="576" />
]

---
count: false

.panel1-the_chunk-auto[

```r
dat %>%
  ggplot() +
  geom_point(aes(x = cty, y = hwy, color = cyl_color),
             alpha = 0.7, size = 2) +
  scale_color_identity() +
  facet_wrap(~ cyl_text) +
  labs(
    title = title,
    subtitle = subtitle,
    x = 'City MPG',
    y = 'Highway\nMPG',
    caption = caption
  ) +
  theme_minimal() +
    theme(legend.position = 'none') +
    theme(text = element_text(family = 'Fira Code')) +
    theme(panel.grid = element_blank()) +
    theme(panel.spacing = unit(1, "lines")) +
    theme(plot.background = element_rect(fill = '#D3D3D3')) +
    theme(plot.margin = unit(c(.5,.75,.5,.75), 'cm')) +
    theme(plot.title.position = 'plot') +
    theme(plot.title = element_markdown(size = 16,
                                  face = 'bold',
                                  color = '#525252',
                                  lineheight = 1.2)) +
    theme(plot.subtitle = element_textbox_simple(
        size = 10,
        lineheight = 1.2,
        padding = margin(5.5, 5.5, 5.5, 5.5),
        margin = margin(0, 0, 5.5, 0),
        fill = '#CCCCCC')) +
    theme(plot.caption = element_textbox_simple(
            size = 9,
            lineheight = 1.2,
            margin = margin(20, 50, 0, 0),
            fill = '#D3D3D3')) +
    theme(axis.text = element_text(size = 12)) +
    theme(axis.title = element_text(size = 12, face = 'bold', color = '#525252')) +
    theme(axis.title.x = element_text(margin = unit(c(.5, 0, 0, 0), "cm"))) +
*   theme(axis.title.y = element_text(angle = 0, vjust = 1))
```
]
 
.panel2-the_chunk-auto[
<img src="plot_flipbook_embed_files/figure-html/the_chunk_auto_21_output-1.png" width="576" />
]

---
count: false

.panel1-the_chunk-auto[

```r
dat %>%
  ggplot() +
  geom_point(aes(x = cty, y = hwy, color = cyl_color),
             alpha = 0.7, size = 2) +
  scale_color_identity() +
  facet_wrap(~ cyl_text) +
  labs(
    title = title,
    subtitle = subtitle,
    x = 'City MPG',
    y = 'Highway\nMPG',
    caption = caption
  ) +
  theme_minimal() +
    theme(legend.position = 'none') +
    theme(text = element_text(family = 'Fira Code')) +
    theme(panel.grid = element_blank()) +
    theme(panel.spacing = unit(1, "lines")) +
    theme(plot.background = element_rect(fill = '#D3D3D3')) +
    theme(plot.margin = unit(c(.5,.75,.5,.75), 'cm')) +
    theme(plot.title.position = 'plot') +
    theme(plot.title = element_markdown(size = 16,
                                  face = 'bold',
                                  color = '#525252',
                                  lineheight = 1.2)) +
    theme(plot.subtitle = element_textbox_simple(
        size = 10,
        lineheight = 1.2,
        padding = margin(5.5, 5.5, 5.5, 5.5),
        margin = margin(0, 0, 5.5, 0),
        fill = '#CCCCCC')) +
    theme(plot.caption = element_textbox_simple(
            size = 9,
            lineheight = 1.2,
            margin = margin(20, 50, 0, 0),
            fill = '#D3D3D3')) +
    theme(axis.text = element_text(size = 12)) +
    theme(axis.title = element_text(size = 12, face = 'bold', color = '#525252')) +
    theme(axis.title.x = element_text(margin = unit(c(.5, 0, 0, 0), "cm"))) +
    theme(axis.title.y = element_text(angle = 0, vjust = 1)) +
*   theme(strip.text = element_markdown(size = 14))
```
]
 
.panel2-the_chunk-auto[
<img src="plot_flipbook_embed_files/figure-html/the_chunk_auto_22_output-1.png" width="576" />
]

```{.r .distill-force-highlighting-css}
```

@media print {
  .has-continuation {
    display: block;
  }
}

code.r.hljs.remark-code{
  position: relative;
  overflow-x: hidden;
}

code.r.hljs.remark-code:hover{
  overflow-x:visible;
  width: 500px;
  border-style: solid;
}
</style>

```{.r .distill-force-highlighting-css}
```