In rstudio/gt: Easily Create Presentation-Ready Display Tables

knitr::opts_chunk$set(echo = TRUE)
library(gt)
library(tidyverse)

Create several tables with spanner column labels.

# Input table
tbl <-
  dplyr::tribble(
    ~v_1, ~v_2, ~v_3, ~v_4, ~v_5,
    20.4, 36.1, 34.2, 21.6, 23.1,
    25.8, 14.3, 13.7, 12.9, 75.9,
    16.3, 34.3, 15.1, 93.2, 12.1
  )

gt(tbl) %>%
  tab_spanner(
    label = "v_1_2",
    columns =  c(v_1, v_2)
  ) %>%
  tab_spanner(
    label = "v_4_5",
    columns = c(v_4, v_5)
  ) %>%
  cols_move_to_start(columns = v_3)