The cells_title() function
Use sp500 to create a 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 500 |
| 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 |