---
title: "Quarto 计算"
---

该数据集包含来自美国环保署燃油经济数据的子集。
具体而言，我们使用了 **ggplot2** 包中的 `mpg` 数据集。

```{r}
#| label: 加载包
#| echo: false

library(ggplot2)
```

下图展示了这些汽车的市区和高速公路里程之间存在正向、强且线性的关系。
此外，汽缸数较少的汽车里程更高。

```{r}
#| label: 散点图

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