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

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

library(tidyverse)
library(palmerpenguins)
```

## Quarto를 만나보세요

Quarto는 콘텐츠와 실행 가능한 코드를 엮어 완성된 문서를 만들 수 있게 해줍니다. 자세한 내용은 <https://quarto.org>를 참고하세요.

## 펭귄을 만나보세요

![](https://raw.githubusercontent.com/quarto-dev/quarto-web/main/docs/get-started/hello/rstudio/lter_penguins.png){style="float:right;" fig-alt="팔머 군도의 펭귄 세 종(턱끈, 젠투, 아델리)을 그린 일러스트. @allison_horst 작품." width="401"}

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

아래 그래프는 이 펭귄들의 지느러미 길이와 부리 길이의 관계를 보여줍니다.

```{r}
#| label: plot-penguins
#| 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(
    title = "지느러미 길이와 부리 길이",
    subtitle = "팔머 스테이션 LTER의 펭귄 치수",
    x = "지느러미 길이 (mm)", y = "부리 길이 (mm)",
    color = "펭귄 종", shape = "펭귄 종"
  ) +
  theme_minimal()
```
