---
title: Does Not Render
format: html
---

```{r}
penguins <- read_csv(
  "https://raw.githubusercontent.com/rfortherestofus/rin3-spring-2026/main/data-raw/penguins.csv"
)
```

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

```{r}
#| fig-height: 20
penguins |>
  count(island) |>
  ggplot(aes(x = island, y = n)) +
  geom_col()
```