The cells_title() function

Use a subset of the sp500 dataset to create a small gt table. Add a header with a title, and then add a footnote to the title with tab_footnote() and cells_title() (in locations).

sp500 |>
  dplyr::filter(date >= "2015-01-05" & date <= "2015-01-10") |>
  dplyr::select(-c(adj_close, volume, high, low)) |>
  gt() |>
  tab_header(title = "S&P 500") |>
  tab_footnote(
    footnote = "All values in USD.",
    locations = cells_title(groups = "title")
  )
S&P 5001
date open close
2015-01-09 2063.45 2044.81
2015-01-08 2030.61 2062.14
2015-01-07 2005.55 2025.90
2015-01-06 2022.15 2002.61
2015-01-05 2054.44 2020.58
1 All values in USD.