# Install gt if necessary
# install.packages('gt')
library(gt)

# I'm also loading magrittr so I can use the %>% pipe
library(magrittr)

# you data will need to be in a data.frame or tibble object
# for this example I'll use the generic dataset mtcars
# which I'm truncating to make the final table easier to see
input_df = head(mtcars, 6)
input_df = input_df[, 1:5]


# create the table including the data.frame rownames
Ex_table = gt(input_df, rownames_to_stub = TRUE)


# add title, subtitle, and source note
Ex_table = Ex_table %>%
  tab_header(
    title = md("**Title in Bold Text**"),
    subtitle = "subtitle"
  ) %>%
  tab_source_note("Data from mtcars")


# add groupings to rows
Ex_table = Ex_table %>%
  tab_row_group(
    label = "4 Cylinder",
    rows = cyl == 4
  ) %>%
  tab_row_group(
    label = "6 Cylinder",
    rows = cyl == 6
  ) %>%
  tab_row_group(
    label = "8 Cylinder",
    rows = cyl == 8
  )