The cells_stubhead() function
Use pizzaplace to create a gt table. Add a stubhead label with tab_stubhead() and then style it with tab_style() and cells_stubhead().
pizzaplace |>
dplyr::mutate(month = as.numeric(substr(date, 6, 7))) |>
dplyr::group_by(month, type) |>
dplyr::summarize(sold = dplyr::n(), .groups = "drop") |>
dplyr::filter(month %in% 1:2) |>
gt(rowname_col = "type") |>
tab_stubhead(label = "type") |>
tab_style(
style = cell_fill(color = "lightblue"),
locations = cells_stubhead()
)
| type |
month |
sold |
| chicken |
1 |
913 |
|---|
| classic |
1 |
1257 |
|---|
| supreme |
1 |
1044 |
|---|
| veggie |
1 |
1018 |
|---|
| chicken |
2 |
875 |
|---|
| classic |
2 |
1178 |
|---|
| supreme |
2 |
964 |
|---|
| veggie |
2 |
944 |
|---|