featurette

class: inverse, left, bottom
background-image: url(https://images.unsplash.com/photo-1598439210625-5067c578f3f6?auto=format&fit=crop&q=80&w=1472&ixlib=rb-4.0.3&ixid=M3wxMjA3fDB8MHxwaG90by1wYWdlfHx8fGVufDB8fHx8fA%3D%3D)
background-size: cover
# .Large[#'penguins ggformula' featurette]
## .small[featuring [Project MOSAIC's {ggformula}](https://github.com/ProjectMOSAIC/ggformula)]
#### .tiny[Gina Reynolds | 2023-10-30 |Image credit: Cornelius Ventures, Upsplash]
???
Title

---

count: false

.panel1-feature-auto[

```r
*library(ggformula)
```
]
 
.panel2-feature-auto[

]

---
count: false

.panel1-feature-auto[

```r
library(ggformula)
*palmerpenguins::penguins
```
]
 
.panel2-feature-auto[

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

---
count: false

.panel1-feature-auto[

```r
library(ggformula)
palmerpenguins::penguins %>%
* set_variable_labels(
*   bill_length_mm = "bill length (mm)",
*   bill_depth_mm = "bill depth (mm)"
* )
```
]
 
.panel2-feature-auto[

---
count: false

.panel1-feature-auto[

```r
library(ggformula)
palmerpenguins::penguins %>%
  set_variable_labels(
    bill_length_mm = "bill length (mm)",
    bill_depth_mm = "bill depth (mm)"
  ) %>%
* gf_jitter(bill_length_mm ~ bill_depth_mm |  # y x
*           island ~ sex,  # row col facets
*           color = ~ species,
*           width = 0.05,
*           height = 0.05,
*           size = 0.5,
*           alpha = 0.6)
```
]
 
.panel2-feature-auto[
![](ggformula-penguins_files/figure-html/feature_auto_04_output-1.png)
]

---
count: false

.panel1-feature-auto[

---
count: false

.panel1-feature-auto[

```r
library(ggformula)
palmerpenguins::penguins %>%
  set_variable_labels(
    bill_length_mm = "bill length (mm)",
    bill_depth_mm = "bill depth (mm)"
  ) %>%
  gf_jitter(bill_length_mm ~ bill_depth_mm |  # y x
            island ~ sex,  # row col facets
            color = ~ species,
            width = 0.05,
            height = 0.05,
            size = 0.5,
            alpha = 0.6) %>%
  gf_density2d(alpha = 0.3) %>%
* gf_labs(title = "Palmer Penguins",
*         caption = "Data available in palmerpenguins package"
* )
```
]
 
.panel2-feature-auto[
![](ggformula-penguins_files/figure-html/feature_auto_06_output-1.png)
]

---
count: false

.panel1-feature-auto[

```r
library(ggformula)
palmerpenguins::penguins %>%
  set_variable_labels(
    bill_length_mm = "bill length (mm)",
    bill_depth_mm = "bill depth (mm)"
  ) %>%
  gf_jitter(bill_length_mm ~ bill_depth_mm |  # y x
            island ~ sex,  # row col facets
            color = ~ species,
            width = 0.05,
            height = 0.05,
            size = 0.5,
            alpha = 0.6) %>%
  gf_density2d(alpha = 0.3) %>%
  gf_labs(title = "Palmer Penguins",
          caption = "Data available in palmerpenguins package"
  ) %>%
* gf_refine(scale_color_brewer(type = "qual"))
```
]
 
.panel2-feature-auto[
![](ggformula-penguins_files/figure-html/feature_auto_07_output-1.png)
]

---
count: false

.panel1-feature-auto[

```r
library(ggformula)
palmerpenguins::penguins %>%
  set_variable_labels(
    bill_length_mm = "bill length (mm)",
    bill_depth_mm = "bill depth (mm)"
  ) %>%
  gf_jitter(bill_length_mm ~ bill_depth_mm |  # y x
            island ~ sex,  # row col facets
            color = ~ species,
            width = 0.05,
            height = 0.05,
            size = 0.5,
            alpha = 0.6) %>%
  gf_density2d(alpha = 0.3) %>%
  gf_labs(title = "Palmer Penguins",
          caption = "Data available in palmerpenguins package"
  ) %>%
  gf_refine(scale_color_brewer(type = "qual")) %>%
* gf_theme(theme_bw())
```
]
 
.panel2-feature-auto[
![](ggformula-penguins_files/figure-html/feature_auto_08_output-1.png)
]

---
count: false

.panel1-feature-auto[

```r
library(ggformula)
palmerpenguins::penguins %>%
  set_variable_labels(
    bill_length_mm = "bill length (mm)",
    bill_depth_mm = "bill depth (mm)"
  ) %>%
  gf_jitter(bill_length_mm ~ bill_depth_mm |  # y x
            island ~ sex,  # row col facets
            color = ~ species,
            width = 0.05,
            height = 0.05,
            size = 0.5,
            alpha = 0.6) %>%
  gf_density2d(alpha = 0.3) %>%
  gf_labs(title = "Palmer Penguins",
          caption = "Data available in palmerpenguins package"
  ) %>%
  gf_refine(scale_color_brewer(type = "qual")) %>%
  gf_theme(theme_bw()) %>%
* gf_theme(
*   legend.position = 'top',
*   text = element_text(colour = "navy",
*                       face = "italic")
* )
```
]
 
.panel2-feature-auto[
![](ggformula-penguins_files/figure-html/feature_auto_09_output-1.png)
]

---

### Contribute

- https://github.com/ProjectMOSAIC/ggformula

---