My First Flipbook

class: center, middle, inverse, title-slide

# My First Flipbook
## With flipbookr and xaringan
### Ted Laderas

---

<style type="text/css">
.remark-code{line-height: 1.5; font-size: 80%}
@media print {
  .has-continuation {
    display: block;
  }
}
</style>

---

count: false
 
### Faceting the Palmer Penguins!
.panel1-my_penguins-auto[

```r
*penguins
```
]
 
.panel2-my_penguins-auto[

```
# A tibble: 344 x 8
   species island bill_length_mm bill_depth_mm flipper_length_~ body_mass_g
   <fct>   <fct>           <dbl>         <dbl>            <int>       <int>
 1 Adelie  Torge~           39.1          18.7              181        3750
 2 Adelie  Torge~           39.5          17.4              186        3800
 3 Adelie  Torge~           40.3          18                195        3250
 4 Adelie  Torge~           NA            NA                 NA          NA
 5 Adelie  Torge~           36.7          19.3              193        3450
 6 Adelie  Torge~           39.3          20.6              190        3650
 7 Adelie  Torge~           38.9          17.8              181        3625
 8 Adelie  Torge~           39.2          19.6              195        4675
 9 Adelie  Torge~           34.1          18.1              193        3475
10 Adelie  Torge~           42            20.2              190        4250
# ... with 334 more rows, and 2 more variables: sex <fct>, year <int>
```
]

---
count: false
 
### Faceting the Palmer Penguins!
.panel1-my_penguins-auto[

```r
penguins %>%
* ggplot()
```
]
 
.panel2-my_penguins-auto[
![](index_files/figure-html/my_penguins_auto_02_output-1.png)
]

---
count: false
 
### Faceting the Palmer Penguins!
.panel1-my_penguins-auto[

```r
penguins %>%
  ggplot() +
* aes(x=bill_length_mm)
```
]
 
.panel2-my_penguins-auto[
![](index_files/figure-html/my_penguins_auto_03_output-1.png)
]

---
count: false
 
### Faceting the Palmer Penguins!
.panel1-my_penguins-auto[

```r
penguins %>%
  ggplot() +
  aes(x=bill_length_mm) +
* aes(y=bill_depth_mm)
```
]
 
.panel2-my_penguins-auto[
![](index_files/figure-html/my_penguins_auto_04_output-1.png)
]

---
count: false
 
### Faceting the Palmer Penguins!
.panel1-my_penguins-auto[

```r
penguins %>%
  ggplot() +
  aes(x=bill_length_mm) +
  aes(y=bill_depth_mm) +
* geom_point()
```
]
 
.panel2-my_penguins-auto[
![](index_files/figure-html/my_penguins_auto_05_output-1.png)
]

---
count: false
 
### Faceting the Palmer Penguins!
.panel1-my_penguins-auto[

```r
penguins %>%
  ggplot() +
  aes(x=bill_length_mm) +
  aes(y=bill_depth_mm) +
  geom_point() +
* aes(color = species)
```
]
 
.panel2-my_penguins-auto[
![](index_files/figure-html/my_penguins_auto_06_output-1.png)
]

---
count: false
 
### Faceting the Palmer Penguins!
.panel1-my_penguins-auto[

```r
penguins %>%
  ggplot() +
  aes(x=bill_length_mm) +
  aes(y=bill_depth_mm) +
  geom_point() +
  aes(color = species) +
* scale_color_manual(values =
*     c("darkorange","purple","cyan4"))
```
]
 
.panel2-my_penguins-auto[
![](index_files/figure-html/my_penguins_auto_07_output-1.png)
]

---
count: false
 
### Faceting the Palmer Penguins!
.panel1-my_penguins-auto[

```r
penguins %>%
  ggplot() +
  aes(x=bill_length_mm) +
  aes(y=bill_depth_mm) +
  geom_point() +
  aes(color = species) +
  scale_color_manual(values =
      c("darkorange","purple","cyan4")) +
* facet_wrap(~island)
```
]
 
.panel2-my_penguins-auto[
![](index_files/figure-html/my_penguins_auto_08_output-1.png)
]

---
count: false
 
### Faceting the Palmer Penguins!
.panel1-my_penguins-auto[

```r
penguins %>%
  ggplot() +
  aes(x=bill_length_mm) +
  aes(y=bill_depth_mm) +
  geom_point() +
  aes(color = species) +
  scale_color_manual(values =
      c("darkorange","purple","cyan4")) +
  facet_wrap(~island) +
* theme_bw()
```
]
 
.panel2-my_penguins-auto[
![](index_files/figure-html/my_penguins_auto_09_output-1.png)
]

---
count: false
 
### Faceting the Palmer Penguins!
.panel1-my_penguins-auto[

```r
penguins %>%
  ggplot() +
  aes(x=bill_length_mm) +
  aes(y=bill_depth_mm) +
  geom_point() +
  aes(color = species) +
  scale_color_manual(values =
      c("darkorange","purple","cyan4")) +
  facet_wrap(~island) +
  theme_bw() +
* labs(x="Bill Length (mm)",
*      y="Bill Depth (mm)",
*      title = "Palmer Penguins by Islands")
```
]
 
.panel2-my_penguins-auto[
![](index_files/figure-html/my_penguins_auto_10_output-1.png)
]

---
count: false
 
### Faceting the Palmer Penguins!
.panel1-my_penguins-auto[

```r
penguins %>%
  ggplot() +
  aes(x=bill_length_mm) +
  aes(y=bill_depth_mm) +
  geom_point() +
  aes(color = species) +
  scale_color_manual(values =
      c("darkorange","purple","cyan4")) +
  facet_wrap(~island) +
  theme_bw() +
  labs(x="Bill Length (mm)",
       y="Bill Depth (mm)",
       title = "Palmer Penguins by Islands")
```
]
 
.panel2-my_penguins-auto[
![](index_files/figure-html/my_penguins_auto_11_output-1.png)
]

<style>
.panel1-my_penguins-auto {
  color: black;
  width: 38.6060606060606%;
  hight: 32%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
.panel2-my_penguins-auto {
  color: black;
  width: 59.3939393939394%;
  hight: 32%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
.panel3-my_penguins-auto {
  color: black;
  width: NA%;
  hight: 33%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
</style>