---
title: "Quarto 계산"
format:
  html:
    code-fold: true
---

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

library(ggplot2)
```

데이터에는 `{r} nrow(mpg)`개의 관측치가 있습니다.

```{r}
#| echo: false

mean_cty <- round(mean(mpg$cty), 2)
mean_hwy <- round(mean(mpg$hwy), 2)
```

데이터에 있는 차량의 평균 시내 연비는 `{r} mean_cty`이고, 평균 고속도로 연비는 `{r} mean_hwy`입니다.

@fig-mpg 의 그래프는 인기 있는 38개 차량 모델의 시내 및 고속도로 연비 간 관계를 보여줍니다.
@fig-mpg-1 에서는 점이 실린더 수에 따라 색으로 구분되며, @fig-mpg-2 에서는 점이 엔진 배기량에 따라 색으로 구분됩니다.

```{r}
#| label: fig-mpg
#| fig-cap: "City and highway mileage for 38 popular models of cars."
#| fig-subcap:
#|   - "Color by number of cylinders"
#|   - "Color by engine displacement, in liters"
#| layout-ncol: 2
#| column: page
#| cache: true

ggplot(mpg, aes(x = hwy, y = cty, color = cyl)) +
  geom_point(alpha = 0.5, size = 2) +
  scale_color_viridis_c() +
  theme_minimal()

ggplot(mpg, aes(x = hwy, y = cty, color = displ)) +
  geom_point(alpha = 0.5, size = 2) +
  scale_color_viridis_c(option = "E") +
  theme_minimal()
```
