---
title: "Quarto 计算"
format:
  html:
    code-fold: true
---

```{r}
#| label: 加载包
#| 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: "38款流行车型的城市和高速公路里程。"
#| fig-subcap:
#|   - "按气缸数量着色"
#|   - "按发动机排量（升）着色"
#| 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()
```