---
title: "latex-05-airquality"
output: 
  - pdf_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(gt)
```

Create a display table based on `airquality`.

```{r}
gt(airquality) %>%
  cols_move_to_start(columns = c(Month, Day)) %>%
  fmt_number(
    columns = Wind,
    decimals = 2
  ) %>%
  tab_spanner(
    label = "Measurement Period",
    columns = c(Month, Day)
  ) %>%
  sub_missing(columns = c(Ozone, Solar.R, Wind, Temp))
```
