---
title: "Hello, Penguins!"
format: html
editor: visual
---
## 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
ggplot(data = penguins,
mapping = 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()
```