---
title: "Palmer Penguins (.qmd)"
---

```{r}
library(tidyverse)
library(palmerpenguins)
```

Data from [Palmer Penguins R package](https://allisonhorst.github.io/palmerpenguins/)


```{r}
penguins |> count(species)
```


```{r}
colors <- c("#FF8C00", "#A020F0", "#008B8B")
```

```{r}
#| label: fig-size-scatter
#| fig-width: 3
#| fig-height: 3
#| fig-alt: "Scatterplot of flipper length against body mass for 344 penguins, colored by species. Flipper length increases with body mass, and Gentoo penguins sit apart from Adelie and Chinstrap at the highest values of both."
ggplot(penguins, aes(body_mass_g, flipper_length_mm)) +
  geom_point(aes(color = species)) +
  scale_color_manual(values = colors) +
  theme_minimal()
```