Exploded code

class: center, middle, inverse, title-slide

# Exploded code
## Using flipbookr and xaringan
### Me

---

@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>

---

count: false

.panel1-dino-auto[

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

]

---
count: false

.panel1-dino-auto[

```r
library(tidyverse)
*datasauRus::datasaurus_dozen
```
]
 
.panel2-dino-auto[

```
# A tibble: 1,846 x 3
   dataset     x     y
   <chr>   <dbl> <dbl>
 1 dino     55.4  97.2
 2 dino     51.5  96.0
 3 dino     46.2  94.5
 4 dino     42.8  91.4
 5 dino     40.8  88.3
 6 dino     38.7  84.9
 7 dino     35.6  79.9
 8 dino     33.1  77.6
 9 dino     29.0  74.5
10 dino     26.2  71.4
11 dino     23.1  66.4
12 dino     22.3  61.8
13 dino     22.3  57.2
14 dino     23.3  52.9
15 dino     25.9  51.0
16 dino     29.5  51.0
17 dino     32.8  51.0
18 dino     35.4  51.4
19 dino     40.3  51.4
20 dino     44.1  52.9
21 dino     46.7  54.1
22 dino     50    55.3
23 dino     53.1  55.6
24 dino     56.7  56.0
25 dino     59.2  57.9
26 dino     61.3  62.2
27 dino     61.5  66.4
28 dino     61.8  69.1
29 dino     57.4  55.3
30 dino     54.9  49.9
31 dino     52.6  46.0
32 dino     48.2  38.3
33 dino     49.5  42.2
34 dino     51.0  44.1
35 dino     45.4  36.4
36 dino     42.8  32.6
37 dino     38.7  31.4
38 dino     35.1  30.3
39 dino     32.6  32.2
40 dino     30    36.8
41 dino     33.6  41.4
42 dino     36.7  45.6
43 dino     38.2  49.1
44 dino     29.7  36.0
45 dino     29.7  32.2
46 dino     30    29.1
47 dino     32.1  26.8
48 dino     35.9  25.3
49 dino     41.0  25.3
50 dino     44.1  25.6
51 dino     47.2  28.7
52 dino     49.5  31.4
53 dino     51.5  34.9
54 dino     53.6  37.6
55 dino     55.1  40.6
# … with 1,791 more rows
```
]

---
count: false

.panel1-dino-auto[

```r
library(tidyverse)
datasauRus::datasaurus_dozen %>%
* ggplot()
```
]
 
.panel2-dino-auto[
![](datasauRus_flipbook_files/figure-html/dino_auto_03_output-1.png)
]

---
count: false

.panel1-dino-auto[

```r
library(tidyverse)
datasauRus::datasaurus_dozen %>%
  ggplot() +
* aes(x = x,
*     y = y)
```
]
 
.panel2-dino-auto[
![](datasauRus_flipbook_files/figure-html/dino_auto_04_output-1.png)
]

---
count: false

.panel1-dino-auto[

```r
library(tidyverse)
datasauRus::datasaurus_dozen %>%
  ggplot() +
  aes(x = x,
      y = y) +
* geom_point()
```
]
 
.panel2-dino-auto[
![](datasauRus_flipbook_files/figure-html/dino_auto_05_output-1.png)
]

---
count: false

.panel1-dino-auto[

```r
library(tidyverse)
datasauRus::datasaurus_dozen %>%
  ggplot() +
  aes(x = x,
      y = y) +
  geom_point() +
* facet_wrap(facets = vars(dataset))
```
]
 
.panel2-dino-auto[
![](datasauRus_flipbook_files/figure-html/dino_auto_06_output-1.png)
]

---
count: false

.panel1-dino-auto[

```r
library(tidyverse)
datasauRus::datasaurus_dozen %>%
  ggplot() +
  aes(x = x,
      y = y) +
  geom_point() +
  facet_wrap(facets = vars(dataset)) +
# mean of x
* ggxmean::geom_x_mean()
```
]
 
.panel2-dino-auto[
![](datasauRus_flipbook_files/figure-html/dino_auto_07_output-1.png)
]

---
count: false

.panel1-dino-auto[

```r
library(tidyverse)
datasauRus::datasaurus_dozen %>%
  ggplot() +
  aes(x = x,
      y = y) +
  geom_point() +
  facet_wrap(facets = vars(dataset)) +
# mean of x
  ggxmean::geom_x_mean() +
* ggxmean::geom_y_mean()
```
]
 
.panel2-dino-auto[
![](datasauRus_flipbook_files/figure-html/dino_auto_08_output-1.png)
]

---
count: false

.panel1-dino-auto[

---
count: false

.panel1-dino-auto[

```r
library(tidyverse)
datasauRus::datasaurus_dozen %>%
  ggplot() +
  aes(x = x,
      y = y) +
  geom_point() +
  facet_wrap(facets = vars(dataset)) +
# mean of x
  ggxmean::geom_x_mean() +
  ggxmean::geom_y_mean() +
# mean of y
  ggxmean:::geom_x1sd(linetype = "dashed") +
* ggxmean:::geom_y1sd(linetype = "dashed")
```
]
 
.panel2-dino-auto[
![](datasauRus_flipbook_files/figure-html/dino_auto_10_output-1.png)
]

---
count: false

.panel1-dino-auto[

```r
library(tidyverse)
datasauRus::datasaurus_dozen %>%
  ggplot() +
  aes(x = x,
      y = y) +
  geom_point() +
  facet_wrap(facets = vars(dataset)) +
# mean of x
  ggxmean::geom_x_mean() +
  ggxmean::geom_y_mean() +
# mean of y
  ggxmean:::geom_x1sd(linetype = "dashed") +
  ggxmean:::geom_y1sd(linetype = "dashed") +
# linear model
* ggxmean::geom_lm()
```
]
 
.panel2-dino-auto[
![](datasauRus_flipbook_files/figure-html/dino_auto_11_output-1.png)
]

---
count: false

.panel1-dino-auto[

```r
library(tidyverse)
datasauRus::datasaurus_dozen %>%
  ggplot() +
  aes(x = x,
      y = y) +
  geom_point() +
  facet_wrap(facets = vars(dataset)) +
# mean of x
  ggxmean::geom_x_mean() +
  ggxmean::geom_y_mean() +
# mean of y
  ggxmean:::geom_x1sd(linetype = "dashed") +
  ggxmean:::geom_y1sd(linetype = "dashed") +
# linear model
  ggxmean::geom_lm() +
* ggxmean::geom_lm_formula()
```
]
 
.panel2-dino-auto[
![](datasauRus_flipbook_files/figure-html/dino_auto_12_output-1.png)
]

---
count: false

.panel1-dino-auto[

```r
library(tidyverse)
datasauRus::datasaurus_dozen %>%
  ggplot() +
  aes(x = x,
      y = y) +
  geom_point() +
  facet_wrap(facets = vars(dataset)) +
# mean of x
  ggxmean::geom_x_mean() +
  ggxmean::geom_y_mean() +
# mean of y
  ggxmean:::geom_x1sd(linetype = "dashed") +
  ggxmean:::geom_y1sd(linetype = "dashed") +
# linear model
  ggxmean::geom_lm() +
  ggxmean::geom_lm_formula() +
# Pearson correlation
* ggxmean:::geom_corrlabel()
```
]
 
.panel2-dino-auto[
![](datasauRus_flipbook_files/figure-html/dino_auto_13_output-1.png)
]