GT Table Grouping

run.R

library(tidyverse)
library(gt)
mtcars %>%
  group_by(gear,cyl) %>%
  summarise(
    n = n(),
    mpg = mean(mpg)
  ) %>% (function(df){
    df$gear[which(duplicated(df$gear))] <- ' '
    return(df)
  }) %>%
  data.frame() %>%
  gt() %>%
  tab_header(
    title = "Gears and Cyclinders Effect on MPG",
    subtitle = glue("Groupings Show Counts and Mean MPG")
  ) %>%
  tab_style(
    style = list(
      cell_fill(color = "lightcyan"),
      cell_text(weight = "bold"),
      cell_borders(sides = "top", color = "#000000", style = "solid", weight = px(1))
    ),
    locations = cells_body(
      columns = 1:4,
      rows = ((gear %>% as.numeric()) > 0)
    )
  ) %>%
  tab_style(
    style = list(
      cell_fill(color = "#f6f6f6"),
      cell_text(weight = "bold")
    ),
    locations = cells_body(
      columns = 2:4,
      rows = n>0
    )
  )