---
title: "안녕, Quarto"
format: html
---

```{r}
#| label: load-packages
#| include: false
library(tidyverse)
library(palmerpenguins)
```

## 펭귄을 만나보세요

[`**palmerpenguins**`](https://allisonhorst.github.io/palmerpenguins) 패키지의 `penguins` 데이터에는 남극 팔머 군도에 있는 세 개 섬에서 관찰된 세 종의 펭귄 `{r} nrow(penguins)`마리에 대한 크기 측정값이 포함되어 있습니다.

@fig-plot-penguins 는 이 펭귄들의 지느러미 길이와 부리 길이의 관계를 보여줍니다.

```{r}
#| label: fig-plot-penguins
#| fig-cap: 팔머 스테이션 LTER의 펭귄 지느러미 길이와 부리 길이
#| warning: false
#| echo: false
ggplot(penguins, 
       aes(x = flipper_length_mm, y = bill_length_mm)) +
  geom_point(aes(color = species, shape = species)) +
  scale_color_manual(values = c("darkorange","purple","cyan4")) +
  labs(
    x = "Flipper length (mm)", y = "Bill length (mm)",
    color = "Penguin species", shape = "Penguin species"
  ) +
  theme_minimal()
```
