---
title: "Hello, Penguins!"
author: "Lars Schöbitz"
format: 
  revealjs: 
    logo: images/quarto-logo.png
    footer: "Footer text"
    chalkboard: true
editor: visual
execute: 
  echo: true
---

# Introduction

## Data

For this analysis we'll use the penguins dataset from the palmerpenguins R package.

```{r}
#| label: load-packages
#| message: false

library(tidyverse)
library(ggthemes)
library(palmerpenguins)
library(gt)
```

## Species

The figure below is a scatterplot of species of penguins.

```{r}
#| label: bill-dims-species
#| warning: false
#| fig-width: 5
#| fig-asp: 0.618
#| output-location: column-fragment

ggplot(penguins,
       aes(x = bill_length_mm, 
           y = bill_depth_mm,
           color = species,
           shape = species)) +
  geom_point() +
  scale_color_colorblind() +
  labs(x = "Bill length (mm)", y = "Bill depth (mm)") +
  theme_minimal()
```

## Penguins

The table below shows the first 10 penguins from the dataset.

```{r}
#| label: penguins-top10

penguins |>
  slice_head(n = 10) |>
  select(species, island, bill_length_mm, bill_depth_mm) |>
  gt()
```

::: notes
-   Point 1
-   Point 2
-   Point 3
:::

# Analysis

## Modeling

::: incremental
-   info about the model
-   text about results
-   comments about shortcomings
:::